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SECTION 1 


GENERAL 
INFORMATION 


GENERAL 


This reference manual covers the total data com- 
munications network on the Burroughs Computer 
Management Systems (CMS). The syntax and se- 
mantics of each of the languages (NDL, MPL, and 
COBOL) are not extensively documented here; 
rather this manual helps explain and define the inter- 
faces between the three languages and the data com- 
munications subsystem. The specific syntax and se- 
mantics may be found in the following reference 
manuals: 


CMS COBOL Reference Manual, form 2007266 
CMS MPL Reference Manual, form 2007563 
CMS NDL Reference Manual, form 1090925 


DOCUMENTATION CONVENTIONS 


Throughout this document, bit 15 is defined as the 


{ORS POE A ES ENE PET OA EPA AIM ETRE 


most significant bit (2 to the 15th power) and bit 0 


AMR OO TAIPEI AVO ee HANEY AWE SS eB ae tae ORE 


as the least significant | bit (2 to to. the _Oth h power). 


Items in the document marked RESERVED are 


a aad 


considered ‘‘don’t cares” to the user but, ‘in fact, are 


ABATE AYN NTE MEBANE os RNP ER RRO SEM ONTO EMPEY PINCH ISIS RR te RSS: 


unmolested 1 by | the DC “subsystem. 


Items marked as IMPLEMENTATION DEPEND- 
ENT are also considered don’t cares to the user but 
may be manipulated by some implementation 
groups. ee ee 

For bit otis which denote availability or presence 
of some condition; 


| ~~ Set = Available/Present —_—| 
Reset = Unavailable/Absent | 


Sea A a ROMERO 


For those bit flags having dual meaning, the first_ 
meaning is the reset_ condition; the second meaning 
is the s set condition. For. example, — 


BIT X = ASCIV/EBCDIC = 0/1 


RISEN DN UR RAL ASIA GRRE RP RRL REE SOON ILE AEE IE SIO SERRE ELLA IOP SELL LEL SEE ALLIS AE ALAA 


All use of the term ‘“‘t ‘task number’’ within this 
| document refers to the external mix number of the 
task. 


eA ARCA Dt Hc adh DA EYES PNA LMR A OO EC BE SOS OE PA EEE ESS DONE BAND PAE BO EEE tp BALE SE ELE CIE LEE ER 


SYSTEM LIMITATIONS 


. The number of stations, lines, queues, and related 
items is limited due to the NDLSYS file layout. Cur- 
rent limitations within the data comm subsystem are: 


1. The number of different terminals must be less 
than 128. 

2. The number of different modems must be less 
than 256. 

3. The number of lines must be less than 256. 

4. The number of subnet queues must be less than 
256. 


5. The number of stations depends on the type of 


station as follows: 


| a. If all stations are non-BDLC and do not use 

extended tallies, the number of stations must 

| be less than 1,130. 

. b. If all stations are BDLC or use extended tal- 
lies, there must be less than 820 stations. 


MESSAGE CONTROL SYSTEM 
INTERFACE 


The message control system (MCS) is the central 
portion n of the data communications system and, as 


gee Seurranmaaons eee eakalanryetentiae 


such, has total control over the operations per- 


sennennnrnen Pt te Ee ay ft EAE AE EARN EES ROE AEP NE EN ORM AE NN aT IRIN A 


formed by the system. It has sole responsibility for 
allowing or denying accesses by user programs to 
portions of the data comm network; message switch- 
ing, either on a global basis (automatic message rout- 
ing) Or on a message-by-message basis (context 
switching); error handling; and reconfiguration of the 
data comm network. In addition, the MCS may per- 
form such functions as auditing and log-in/out valida- 


tion, depending on the requirements of the system. 


In order to perform data comm functions on a sys- 


GRU SA BNA TINY WARN AE 


tem, it is necessary ary that « one, and “only one, MCS be 


pokes Galatne: aertcorae PORE SETS LIME IG EAS LY EE SIC AE PELE OSE SER PETE EE ITE cease Me sop ety 


sitieanssiccition nec ybtnt he acaseon east a 


present in the system. | The MCS runs as a normal 
task (with a few minor r exceptions) under the stand- 
ard operating system, and is written in a high-level 
language. This language is MPLiI, augmented 
certain constructs required to perform MCS- specific 
tasks. These language constructs are described in 


Section 2. 


]-1 


OPERATOR INTERFACE 


The MCS may receive input from, or send output 
to, the system operator’s console using the normal 
ACCEPT and DISPLAY constructs. Unsolicited SPO 
input messages are preceded with the characters DC. 
The system control language recognizes these char- 
acters as defining a message intended for the MCS, 
and alerts the data communications subsystem. The 
message text, after being stripped of the DC charac- 
ters, is transferred into a data communications sub- 
system message space, which is ultimately placed on 
the MCS queue. 


The interpretation of the message text is defined 
by the particular MCS. 


There are two cases in which a DC input message 
may be refused by the _system. They are: 

1. There is no MCS in the mix. 

2. There is no available DC message space in 
which to transfer the ‘message text. 


The system informs the operator of the appropri- 
ate condition by displaying either DC INVALID or 
DC NOSPACE on the system operator’s *s console. 


DC ERRORS 


Within the MCS communicate descriptions which 
appear elsewhere in this document, the phrase *’an 
error is monitored’’ is used to indicate a communi- 
cate failure. The ultimate effect of such a failure is 
determined by the <error option> available to most 
communicates, where: 

<error option> ::= <empty> |, ERROR 


If a communicate is unsuccessful and the <error 
option> = empty and event number and a corre- 
sponding error message are printed and the MCS 
must be discontinued. The vehicles used for discon- 
tinuing an MCS are the DS or DP SPO input mes- 
sages: 


DS <mix> <program name> 
DP <mix> <program name> 


If a communicate is unsuccessful and the <error 
option> = ERROR, the most significant eight bits of 
the communicate result field (fetch value) are set 
equal to @20@ and the remaining 16 bits are set 
equal to the appropriate event number. Fetch value 
is then made available for the programmer to interro- 
gate. 


The event numbers assigned for use by the DC 
subsystem range in value from 200 through 299. This 
range has been further divided into the following cat- 


egories: 
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200-254 Implementation Independent 

272-274 Errors 

282-284 

303-304 

255-269 Implementation Dependent 
Errors B 80 

270-271 Implementation Dependent 

ese Errors B 800/CP 9400 

285-299 Implementation Dependent 
Errors B 1800 

300-302 } Implementation Dependent 

305-320 Errors CP 9500 


The following is a list of the currently defined 
event numbers and the corresponding messages. 


Event Message 
Number 
200 DC ERROR BAD MESSAGE TYPE 
The type field in the message header contains a 
value > 12. ERROR is returned after: 
QUEUE 
201 DC ERROR BAD STATION NO 


A reference has been made to LSN > STATION 
COUNT-1. ERROR is returned after: 
ALLOW.OUTPUT 

CLEAR 

CONTINUE.STATION 
DISALLOW.OUTPUT 

QUEUE 

REDEFINE.STATION 
ROUTE.OUTPUT 
SET.INPUT.LIMIT 
STATION.DESCRIPTION 
STATION.STATUS 


202 DC ERROR BAD QUEUE REF 
A reference has been made to an invalid queue. 
Certain communicates are restricted to certain 
queues, therefore, the queue referenced may exist 
but be invalid in this context. ERROR is returned 
after: 
CLEAR 
DEQUEUE 
QUEUE 
QUEUE DEPTH 
RECALL 
ROUTE.INPUT 
ROUTE.OUTPUT 
SET.QUEUE.LIMIT 


203 DC ERROR BAD SUBNET NO 
A reference has been made to an <SUBN> 
SUBNET COUNT-1. ERROR is returned after: 
ALLOW.INPUT 
DISALLOW.INPUT 
SUBNET.DESCRIPTION 
SUBNET.STATIONS 


204 DC ERROR TEXT SIZE TOO BIG 
The text length field is the message header was 
set > message length field. ERROR is returned 
after: 
WRITE.HEADER 

205 DC ERROR NULL MREF 
An attempt has been made to perform a function 
on a null message reference, in other words, one 


206 


207 


208 


209 


210 


211 


212 


213 


214 


which does not refu.ence a message space. 
ERROR is returned after: 

COPY.TEXT 

QUEUE 

READ.HEADER 

READ.TEXT 

WRITE.HEADER 

WRITE. TEXT 


DC ERROR BYTE INDEX TOO BIG 

The starting byte index of a text transfer is 
illegal. For the source message the index must be 
less than text length. For the destination message, 
the index must be less than message length. 
ERROR is returned after: 

COPY.TEXT 

READ.TEXT 

WRITE.TEXT 


DC ERROR BAD TASK NO 

The task number referenced is not currently in 
the mix or is outside the range of the mix table. 
ERROR is returned after: 

ALLOW.INPUT 

ALLOW.OUTPUT 

CONTINUE.TASK 

DISALLOW.INPUT 

DISALLOW.OUTPUT 

SET.OUTPUT.LIMIT 

TASK.NAME 


DC ERROR BAD LINE NO 

The LLN referenced is greater than 
LINE.COUNT-1. ERROR is returned after: 
QUEUE 

LINE.DESCRIPTION 

LINE.STATIONS 

LINE.STATUS 

REDEFINE.LINE 

REDEFINE.STATION 


DC ERROR BAD MODEM NO 

A reference has been made to an LMN greater 

cee MODEM.COUNT-1. ERROR is returned 
er: 

MODEM.DESCRIPTION 

REDEFINE.LINE 

REDEFINE.STATION 


DC ERROR BAD TERMINAL NO 

A reference has been made to LTN greater than 
TERMINAL.COUNT-1. ERROR is returned after: 
TERMINAL.DESCRIPTION 
REDEFINE.STATION 


DC ERROR NO SPACE 

No message space available to execute the 
communicate. ERROR is returned after: 
CLEAR 

RECALL 


DC ERROR STATION NOT ATTACHED 
An attempt was made to make an unattached 
station ready. ERROR is returned after: 
QUEUE 


DC ERROR COMM NOT IMPLEMENTED 
The last communicate issued is not unimplemented 
on this CMS system. 


DC ERROR LIMIT NOT ALLOWED 

A queue limit of 0 has been specified. ERROR is 
returned after: 

SET.INPUT.LIMIT 

SET.OUTPUT.LIMIT 

SET.QUEUE.LIMIT 


Event numbers 220-228 occur during configuration. 


Even 
Number 


220 


221 


222 


223 


224 


225 


226 


227 


228 


229 


230 


Message 


DC ERROR STATION ALREADY ATTACHED 
The LLN of an attached station has been set to a 
value other than @FF@. ERROR is returned 
after: 

REDEFINE.STATION 


DC ERROR ATTRIBUTE MISMATCH 

The new attributes of the station or line are 
inconsistent with the existing network definition. 
ERROR is returned after: 
REDEFINE.STATION 

REDEFINE.LINE 


DC ERROR DIRECT CONNECT LINE 

An attempt was made to assign a modem to a 
direct-connect line. ERROR is returned after: 
REDEFINE.LINE 


DC ERROR FULL DUPLEX MISMATCH 
Attribute mismatch of full duplex terminal. 
ERROR is returned after: 
REDEFINE.LINE 

REDEFINE.STATION 


DC ERROR INCOMPLETE VARIABLE 

The length of the parameter area, to be used for 
reconfiguration, is insufficient. ERROR is returned 
after: 

REDEFINE.LINE 

REDEFINE.STATION 


DC ERROR IMPROPER LINE CONDITION 
The line being redefined is not in the required 
state of not-ready and, for a switched line, not 
switched busy or not connected. ERROR is 
returned after: 

REDEFINE.LINE 


DC ERROR MESSAGES QUEUVED 

Messages are queued for output to the station 
referenced by REDEFINE.STATION. Messages 
are queued for output to a station on the line 
referenced by REDEFINE.LINE. ERROR is 
returned after: 

REDEFINE.STATION 

REDEFINE.LINE 


DC ERROR NO VACANCY ON LINE 

The MAXSTATIONS statement in the line section 
of NDL defines the maximum number of stations 
which may be attached to a particular line. An 
attempt has been made to attach a station to a 
line which already has MAXSTATIONS. 


DC ERROR SPEED MISMATCH 

The speed specified for a station, when either 
redefining the station or attaching the station to a 
line, does not match the speeds of the other 
stations on that line. 


DC ERROR QUEUE FULL 

The MCS has attempted to queue a message 
which would cause the queue count field of the 
station table or subnet table to overflow. 

DC ERROR NDL DCP MISMATCH 

The data comm loader has detected an 
inconsistancy between the NDL code file and the 
DCP code file. Possibly the DCP code file was not 
generated from this NDL code file. 
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231-248 
249 


250 


251 


Zo2 


253 


254 


ate 


273 


274 


282 


283 


284 


303 


304 
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RESERVED FOR EXPANSION 

DC LOAD/EOJ BAD NDL PRIORITY CLASS 
The NDLSYS file does not have the correct value 
in the priority class field of the PPB @ 3180@. 
DC LOAD/EOJ FAILURE DISK ERROR 

The NDLSYS or DCP file cannot be read because 
of a disk I/O failure. 

DC LOAD/EOJ FAILURE NDL DATA ERROR 
The NDLSYS file either has a line with address 
invalid for the B 800 or specifies an amount of 
required memory which is insufficient for the 
tables and buffers declared. 


DC LOAD/EOJ FAILURE INSUFFICIENT MEMORY 


The memory space required field of the preset 
data in the NDLSYS file specifies more space 

than the MCP can provide. 

DC LOAD/EOJ FAILURE CANNOT CLOSE NDL 
FILE 

Performing the close communicate on the NDLSYS 
file has failed. 

DC LOAD/EOJ FAILURE CANNOT OPEN NDL 
FILE 

Performing the open communicate on the NDLSYS 
file has failed. For example: 

1. The file is not on disk 

2. The file has the wrong file type. 

DC ERROR PROCESSOR NUMBER INVALID 

A Load/Reload specifies an invalid DCP. 

DC ERROR PROCESSOR BUS Y 

A reload specifies a DCP which is busy. 

DC ERROR PROGRAM FILE NAME INVALID 
The DCP file name specified in a reload is not 
defined in the NDLSYS file. 

DC LOAD/EOJ FAILURE CANNOT CLOSE DCP 
FILE 

Performing close communicate on the DCP file has 
failed. 

DC LOAD/EOJ FAILURE CANNOT OPEN DCP 
FILE 

Open communicate on DCP file has failed for one of 
the following reasons: 

1. The file is not on disk. 

2. Bad file type. 

3. The file is larger than the DCP memory. 

DC LOAD/EOJ FAILURE DC* NOT ON SYSTEM 
The specified DCP has not been warmstarted. 

DC DCP* NOT LOADED 

This message will be displayed subsequent to 
detection of a DCP related load error, to 

indicate the DCP is in error. 

DC NO. DCPs LOADED 

This message is displayed if no DCPs have been 
loaded. This condition is fatal to the data comm 
load. 


BUFFER LIMITING 


In order to prevent a task, or group of tasks, from 
monopolizing the use of message spaces, the ability 
of a task to allocate a message space is limited by 
the capacity of the servicing task to process and de- 
allocate the message space. This is accomplished by 
placing changeable limits on the depth of station and 
subnet queues, and also by giving the MCS the abil- 
ity to delay or suspend input from @ particular task 
or station. 


Messages may pass through the system by six es- 
sentially different routines: 


TASK — MCS 


These are output messages from user tasks with 
the MCS participating. The DC subsystem maintains 
an output count and an output limit for each task 
whose output is directed to the MCS. If a task at- 
tempts to issue an output message and its output 
count is greater than, or equal to, its output limit, 
message space is not allocated and the task is sus- 
pended. The count is incremented with each output 
attempt and is decremented when the MCS issues a 
CONTINUE.TASK communicate. The limit is 
initially set by the DC subsystem, but can be altered 
by the MCS by means of the SET.OUTPUT.LIMIT 
communicate. 


STATION — MCS 


These are input messages from DC stations with 
the MCS participating. The DC subsystem maintains 
an unprocessed input count and an unprocessed in- 
put limit for each station whose input is directed to 
the MCS. If a station attempts to input a message 
and its input count is greater than, or equal to, its 
input limit, message space is not allocated and the 
input is refused. The count is incremented when the 
message space is added to the MCS queue, and de- 
cremented when the MCS issues a CONTINUE.ST- 
ATION communicate. The limit is initially set to two 
by the NDL compiler, but can be altered by the 
MCS by means of the SET.INPUT.LIMIT commu- 
nicate. 


TASK — STATION 


These are output messages from user tasks with- 
out MCS participation. The DC subsystem maintains 
a queue count and a queue limit for each station 
queue. If a task attempts to issue an output message 
to a station whose queue count is greater than, or 
equal to, the queue limit, message space is not allo- 
cated and the task is suspended. The count is incre- 
mented when an item is added to the queue. and de- 
cremented when an item is removed. The limit is 


initialized to two by the NDL compiler, but can be 
altered by the MCS by means of the SET.QUEUE.- 
LIMIT communicate. 


STATION — SUBNET QUEUE 


These are input messages from a DC station with- 
out MCS participation. The DC subsystem maintains 
a queue count and a queue limit for each subnet 
queue. If a station attempts to input a message and 


the subnet queue’s count is greater than or equal to 


its queue limit, message space is not allocated and 
the input is refused. The count is incremented when 
an item is added to the subnet queue and decre- 
mented when an item is removed. The limit is initial- 
ized to two by the DC subsystem, but can be altered 
by the MCS by means of the SET.QUEUVE.LIMIT 
commmunicate. 


MCS — SUBNET QUEUE 


The MCS may add an item to any subnet queue. 
The queue count is automatically incremented each 
time an item is added. The only time that the MCS 
is denied is when the queue is full. That is, the addi- 
tion of the item causes an overflow of the queue 
count field. 


MCS — STATION 


The MCS may add an item to the queue of any 
station which is attached to a line. The station queue 
count is automatically incremented each time an 
item is added. It should be noted that all items in- 
tended for a station must be queued to the NDL 
queue rather than to a particular station queue. This 
is done to provide a common interface to the entire 
NDL process. The only time that the MCS is denied 
is when the queue is full. That is, the addition of the 
item causes an overflow of the queue count field. 


QUEUE REFERENCES 


<queue reference> ::= <expression> 


The 16-bit value of <queue reference> has the 
following format in order to identify the MCS, NDL, 
subnet, and station queues: 


4 BITS 12 BITS | 


QUEUE TYPE QUEVE NUMBER 


The queue type has these values: 


0 (0000) = MCS QUEUE 
1 (0001) = NDL QUEUE 
2 (0010) = SUBNET QUEUE 
3 (0011) = STATION QUEUE 


If the queue type indicates the MCS or the NDL 
queue, then queue number must be zero. 


If the queue type indicates a station queue, then 
queue number should contain the appropriate logical 
station number. 


If the queue type indicates a subnet queue, then 
queue number should contain the appropriate logical 
subnet number. 


MESSAGE DECLARATIONS 


Message declarations declare one or more 
variables of type message reference which, when 
set, hold references to data comm message spaces. 


There exists in the machine an area called the 
message reference table, which holds references to 
message spaces which are accessible by the MCS. 
The size of each entry in the message reference table 
is four bytes. One unique value must be reserved to 
designate a null or unset reference. 


MESSAGE SPACE HANDLING 


The MCS programmer must use extreme caution 
in handling DC message spaces. Carelessness could 
seriously affect DC throughput and, in the extreme, 
could cause thrashing. 


The DC subsystem operates out of a predeter- 
mined amount of system memory. However, any 
time it senses that all DC message spaces are in use, 
it attempts to claim more system memory for its 
own. This implies two things: 


1. DC input is suspended until message space be- 
comes available, and 

2. The amount of virtual memory available for 
overlayable data segments is decreased. 


Repeated occurrences of this situation will eventu- 
ally diminish the overlay area to the extent that 
thrashing is unavoidable. 


To prevent such problems, follow these guidelines: 


1. Do not hold message spaces in message refer- 
ences or subnet queues unless absolutely necessary. 

2. Transfer data out of DC message spaces as 
soon as possible. 

3. Use the RELEASE.MESSAGE SPACE com- 
municate instead of waiting for space to be released 
automatically. 

4. Do not use a message space that is capable of 
holding more text than is necessary (some message 
types don’t require any text space at all). 
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5. Try to keep the MCS queue empty - it may 
contain releasable message space and/or important 
information concerning the status of a station or a 
line. 

6. Do not issue an unrestricted number of output 
messages - the status of a station or a line may 
change before the messages are transmitted. 

7. Set reasonable limits on the depth of station 
and subnet queues. 

8. Monitor the NOSPACE bit of input message 
headers. 

9. Do not set the message header MCS-flag unless 
you are interested in the results of both successful 
and unsuccessful output attempts. 


RULES OF DATA TRANSFER 


Any time the DCSS performs a data move, the fol- 
lowing rules apply: 


1. Characters are moved in a left to right fashion. 

2. The data is left-justified in the destination area. 

3. If the size of the source area is larger than the 
size of the destination area, the data is right trun- 
cated. 

4, If the size of the destination area is larger than 
the size of the source area, the excess destination 
characters are not space filled. 

5. For some communicates, the programmer may 
specify the length of the move (byte length). How- 
ever, 

a. If the move is from a DC buffer to a user 
data segment, the actual length of the move 
is the smallest of: 

Byte length. 

Message Header Text.Length. 

Number of bytes available from the be- 
ginning of the data area to the end of the 
data segment. 

b. If the move is from a user data segment to 
a DC buffer, the actual length of the move 
is the smallest of: 

Byte length. 

Message Header Message.Length. 

Number of bytes available from the be- 
ginning of the data area to the end of the 
segment. 
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c. If the move is from one DC buffer to an- 
other, the actual length of the move is the 
smallest of: 


Byte length. 

(Source) Message Header Text.Length. 
(Destination) Message Header Message- 
.Length. 

6. In any case, no indication of the actual number 
of characters moved is returned to the MCS pro- 
grammer. 

7. The COBOL programmer, on the other hand, 
may interrogate the CD area TEXT.LENGTH field 
after a receive operation to find out how many text 
characters have been moved into his data area. 

8. The MPL application programmer may use 
DC.TEXTLENGTH to determine how many text 
characters have been moved into his data area. 


Network Error Handling 


The transmission and reception of data comm 
messages is performed at the NDL level. NDL is also 
responsible for first level error handling, for exam- 
ple, retransmission of a message. The NDL usually 
retries a message a finite number of times. If, within 
this finite number of retries, successful transmission/ 
reception is not achieved, the error is reported to a 
higher level — the MCS. In order to utilize the DC 
subsystem effectively, the MCS programmer must be 
aware of the events which occur during the reporting 
process. 


When an error of the above type occurs, a mes- 
sage is placed on the MCS input queue by the DC 
subsystem. The message header result and event 
fields indicate the cause of the error and should al- 
ways be examined by the MCS programmer. The 
message header type field is dependent on the state 
of the NDL process at the time the error was detect- 
ed. Input messages result from errors detected in 
NDL line control or receive request; output mes- 
sages from transmit request. In the case of input 
messages, the associated text, if any, represents a 
partically received messsage and may usually be dis- 
carded. In the case of output messages, the associ- 
ated text must be saved in order to preserve the cor- 
rect output sequence. 


SECTION 2 
MCS FUNCTIONS 


This section deals with the MCS constructs in 
MPL and their use. For more detailed explanations, 
refer to the CMS MPLII Reference Manual, form 
2007563. 


ALLOW.INPUT 
ALLOW.INPUT (<queue number>, <task num- 
ber> <error option>); 


This is a procedure which causes the task refer- 
enced by <task number> to become ‘‘attached’’ to 
the subnet queue specified by <queue number>. 
That is, the task is allowed to reference the subnet 
queue for input. 


If the task had been waiting for a response to an 
attachment request regarding <queue number>, the 
appropriate ‘‘attached’’ indicator is set, and the task 
is made ready to run. 


If the task has not been waiting for a response to 
an attachment request regarding <queue number>, 
this is a NO-OP. 


If the <queue number> specifies an undefined 
subnet queue, an error is monitored. 


If the task number is 0 or greater than 9, an error 
is monitored. 


ALLOW.OUTPUT 
ALLOW.OUTPUT (<station number>, <task num- 
ber> <error option>); 


This is a procedure which causes the task refer- 
enced by <task number> to become ‘‘attached’’ to 
the station specified by <station number>. That is, 
the task is allowed to reference the station for out- 
put. 


If the task had been waiting for a response to an 
attachment request regarding <station number>, the 
appropriate ‘‘attached’’ indicator is set, and the task 
is made ready to run. 


If the task had not been waiting for a response to 
an attachment request regarding <station number>, 
this is a NO-OP. 


If the <station number> specifies an undefined 
station, an error is monitored. 


If the <task number> is 0 or greater than 9, an 
error is monitored. 


CLEAR 


CLEAR (<queue reference> <error option>); 


This ia a procedure which performs an automatic 
RELEASE.MESSAGE.SPACE on any messages on 
the station or subnet queue specified by <queue ref- 
erence>. 7 


The system may require a message space to per- 
form this procedure. If no message space is avail- 
able, the procedure is not executed, the most 
significant eight bits of fetch value are set equal to 
@40@, and the remaining 16 bits are set equal to the 
event number corresponding to nospace. 


If the <queue reference> designates the MCS 
queue or the NDL queue, an error is monitored (bad 
queue reference). 


If the <queue reference> designates an undefined 
Station or subnet queue, an error is monitored (bad 
station number or bad subnet number). 


If the <queue reference> designates a station 
queue for which the corresponding station is not at- 
tached to a line, an error is monitored (station not 
attached). 


CONTINUE.STATION 


CONTINUE.STATION (<station number> <error 
option>); 


This is a procedure which allows the system to 
continue accepting input from a station whose input 
is routed to the MCS by decrementing the station’s 
‘‘unprocessed input count.’’ 


No action is taken if the station’s unprocessed in- 
put count is 0. 


Issue one CONTINUE.STATION for each such 
message processed by the MCS. Otherwise, input at- 
tempts from the station are unsuccessful and ‘‘nos- 
pace’’ conditions are reported. 


If the <station number> specifies an undefined 
station, an error is monitored. 
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CONTINUE.TASK 
CONTINUE.TASK (<task number> <error op- 
tion>); 


This a procedure which allows a task to continue 
issuing ‘‘send’’ messages to a station with output 
routed to the MCS, by decrementing the task’s out- 
put count. 


No action is taken if either the task’s unprocessed 
output count is 0 or the referenced task is not a data 
comm task. 


One CONTINUE.TASK should be issued for each 
send message processed by the MCS. Otherwise, the 
task may be suspended until one is issued or until 
the route indication is changed. 


If the task has been suspended for issuing too 
many send messages, and the task’s output count Is 
now less than the output limit, the task is made 
ready to run. 


If the task number is invalid, (that is, out of range 
or not currently executing) an error is monitored 
(bad task number). 


COPY. TEXT 

COPY.TEXT (<message variable>,<starting byte>, 
<message variable>,<starting byte>, <byte 
length> <error option>); 


This is a procedure which causes the text of the 
message space referenced by the first specified 
<message variable>, starting at the first specified 
<starting byte> for a length of <byte length> to be 
placed in the text area of the message space refer- 
enced by the second specified <message variable>, 
starting at the second specified <starting byte>. 


If either <message variable> is null, an error is 
monitored. 


If the source <starting byte> is greater than the 
source TEXT.LENGTH, or if the destination <start- 
ing byte> is greater than or equal to the destination 
MESSAGE.LENGTH, an error is monitored. 


The normal rules of data transfer apply. 


The contents of the TEXT.LENGTH field of the 
message headers are not automatically updated as a 
result of this communicate. | 


DCP.DESCRIPTION 
DCP.DESCRIPTION (<processor number>, 
<variable> <error option>; 


This is a procedure which fills the <variable> 
with a list of the program file names and the number 
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of terminals associated with each of the program file 
names declared for this processor number in the 
NDL program. Each entry in the list is a two-byte 
number (0-65535) followed by a 12-character (space- 
filled) name. The format of the information is de- 
scribed in the interrogate layouts section. 


An error is monitored when the <processor num- 
ber> is invalid or unused by this NDL program. 


The <variable> must be of type character. 


The normal rules of data transfer apply. 


DCP.PROCESSORS 
DCP.PROCESSORS 


This function returns the highest defined logical 
DCP number plus 1. The DCP number is incre- 
mented by 1 to make it 1 rather than 0 relative. 


DCP.PROGRAM.COUNT 
DCP.PROGRAM.COUNT (<processor 
number>) A Function 


This is a function which returns the number of 
program file names declared for this <processor 
number> in the NDL program. This number is zero 
if the <processor number> is not used in this NDL 
program. If the <processor number> is invalid 
(greater than 1), a value of @FFFF@ is returned. 


This function is used in relation to the DCP.DE- 
SCRIPTION procedure. 


DCP.PROGRAM.NAMES 
DCP.PROGRAM.NAMES (<variable>); 


This procedure fills the <data variable> with a list 
of the program file names of the program loaded into 
each processor. The order of the names is according 
to the processor number. If a processor is not used 
by this NDL program, its position in the list is 
space-filled. Each position is 12 characters long and 
space-filled to complete any name which is less than 
12 characters. 


The <variable> must be of type character. 


The normal rules of data transfer apply. 


DCP.PROGRAM.TERMINALS 
DCP.PROGRAM.TERMINALS (<processor num- 
ber>, <variable>,<program name>,<error op- 
tion>); 


This is a procedure which fills the <variable> 
with a list of the terminals declared for this <proces- 
sor number> and <program name> in the NDL 


program. Each entry in the list is a two-byte logical 
terminal number (0-65535). 


The number of items in this list reflects the num- 
ber of terminals returned with this <program name> 
by the DCP.DESCRIPTION interrogate for this 
<processor number>. 


If the <processor number> is invalid, an error is 
monitored. Likewise, if the <program name> is in- 
correct, an error is monitored. 


The normal rules of data transfer apply. 


DCP.RELOAD 


DCP.RELOAD (<processor number>,<program na- 
me><error option>); 


This procedure causes the data communications 
processor identified by <processor number> to be 
loaded with the program file identified by <program 
name>. 


If the <processor number> is invalid (greater than 
1) or is not used by this NDL program, an error is 
monitored. Likewise, if the <program name> is in- 
correct, an error is monitored. 


The <program name> must be of type character. 


The <processor number> being reloaded must be 
in an idle state, or else an error is monitored. 


DEQUEUE 


DEQUEUE (<message variable>,<queue refer- 
ence> <error option>); 


This is a built-in procedure which causes the top 
message on the subnet queue specified by <queue 
reference> to be unlinked and a reference to it to be 
filled into the <message variable>. If the message 
variable is not initially null, the message space orig- 
inally referenced is ‘‘released’’ before the new mes- 
Sage is acquired. If the queue is empty, the message 
reference is left as null. Any <queue reference> 
Other than a valid subnet queue causes an error. 


DISALLOW.INPUT 


DISALLOW.INPUT (<queue number>,<task num- 
ber> <error option>); 


This is a procedure which causes the task refer- 
enced by <task number> to become unattached 
from the subnet queue specified by <queue num- 
ber>. That is, the task is not allowed to reference 
the subnet queue for input. If the task had been sus- 
pended because it was necessary for the DC commu- 


nicate handler to issue an Attach Queue message to 
the MCS regarding the specified saqueue number>, 
the task is made ready to run. 


Unless the <queue number> specifies a valid 
subnet queue, an error is monitored. 


If the <task number> is 0 or greater than 9, an 
error is monitored. 


DISALLOW.OUTPUT 
DISALLOW.OUTPUT (<station number>,<task 
number> <error option>); 


This is a procedure which causes the task refer- 
enced by <task number> to become unattached 
from the station specified by <station number>. 
That is, the task is not allowed to reference the sta- 
tion for output. If the task had been suspended be- 
cause it was necessary for the DC communicate han- 
dler to issue an attach station message to the MCS 
regarding this station, the task is made ready to run. 


If the <station number> specifies an undefined 
station, an error is monitored. | 


If the <task number> is 0 or greater than 9, an 
error is monitored. 


EXCHANGE.REFERENCE 
EXCHANGE.REFERENCE (<message variable>, 
<message variable>); 


EXCHANGE.REFERENCE causes the contents 
of the first specified <message variable> to be ex- 
changed with the contents of the second specified 
<message variable>. 


FETCH.MESSAGE 

FETCH.MESSAGE (<message variable> <wait op- 
tion>); 

<wait option>::= <empty>, NOWAIT 


This is a procedure which causes the top message 
on the MCS queue to be unlinked and a reference to 
it to be filled into the <message variable>. If the 
message reference was not initially null, the message 
Space originally referenced is released (returned to 
the free pool and its contents lost) before the new 
message is acquired. 


If wait option = <empty>, and the MCS queue is 
empty, the MCS is suspended until the MCS queue 
becomes active. 


If wait option = NOWAIT, and the MCS queue is 
empty, the <message variable> is left as null and 
control is immediately returned to the MCS. 
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GET.MESSAGE.SPACE | 
GET.MESSAGE.SPACE (<message variable>, 
<byte length>); 


This is a procedure which acquires a message 
space capable of holding <byte length> text charac- 
ters and fills the <message variable> with a refer- 
ence to it. 


If the <message variable> is not initially null, the 
referenced space is released. 


If an insufficient amount of message space is avail- 
able, the message variable is left as null. 


LINE.COUNT 


LINE.COUNT A Function 


This is a function which returns the number of 
data communication lines defined in the NDL pro- 
gram. 


LINE.DESCRIPTION 
LINE.DESCRIPTION (<line number>,<variable> 
<error option>); 


This is a procedure which causes the definition of 
the line referenced by <line number> to be placed 
in the <variable>. The format of the information is 
described in the interrogate layouts section of this 
document. 


If the <line number> designates an undefined 
line, an error is monitored. 


The <variable> must be of type character. 


The normal rules of data transfer apply. 


LINE.NUMBER 
LINE.NUMBER (<line address>) A Function 
<line address> ::= <expression> 


This is a function which, given a physical line ad- 
dress in <line address>, returns the corresponding 
logical line number. If the <line address> is not de- 
fined in the NDL program, a value of @FFFF@ is 
returned. 


LINE.STATIONS 
LINE.STATIONS (<line number>,<variable> <er- 
ror option>); 


This is a procedure which places in the 
<variable> the logical station numbers of the sta- 
tions attached to the line referenced by <line num- 
ber>. The format of the information is described in 
the Interrogate Layouts section of this document. 
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NOTE 
No more than 100 stations may be at- 
tached to a line at any given time. 


If the <line number> designates an undefined 
line, an error is monitored. 


The normal rules of data transfer apply. 


LINE.STATUS 
LINE STATUS (<line number>, <variable> <er- 
ror option>); 


This is a procedure which causes the current sta- 
tus of the line referenced by <line number> to be 
placed in the <variable>. The information format is 
described in the Interrogate Layouts section of this 
document. 


If the <line number> designates an undefined 
line, an error is monitored. 


The normal rules of data transfer apply. 


MODEM.COUNT 
MODEM.COUNT A Function 


This function returns the number of modems de- 
fined in the NDL program. 


The NDL compiler always generates two dummy 
modem tables for direct connect and BDI lines. 
Modem 0 is assigned to any direct connect line. 
Modem 1 is assigned to any BDI line. Therefore, the 
value returned by MODEM.COUNT is always equal 
to : (Number of explicitly defined modems) + 2. 


MODEM.DESCRIPTION 
MODEM.DESCRIPTION (<modem number>, 
<variable> <error option>); 

<modem number>::= <expression> 


This procedure causes the definition of the modem 
referenced by <modem number> to be placed in the 
<variable>. The format of the information is de- 
scribed in the interrogate layouts section of this doc- 
ument. 


If the <modem number> designates an undefined 
modem, an error is monitored. 


The <variable> must be of type character. 


The normal rules of data transfer apply. 


NULL 


NULL (<message variable>) A Function 


This is a functional S-OP which returns a true 
value if the <message variable> is null, and a false 
value otherwise. A <message variable> is null if it 
does not reference a valid message space. 


QUEUE 


QUEUE (<message variable>,<queue reference> 
<error option>); 


This procedure causes the message referenced by 
the <message variable> to be added to the tail of 
the queue specified by <queue reference>. The 
<message variable> is then set to null. 


If the <message variable> was already null, an er- 
ror is monitored (NULL MREF). 


If the <queue reference> designates any of the 
following: 


1. A station queue. 

2. An undefined subnet queue. 

3. The MCS queue with non zero queue number. 
4. The NDL queue with non zero queue number. 


an error is monitored (BAD QUEUE REF). 


If the <queue reference> designates a queue for 
which the queue count is equal to 255, an error is 
monitored (QUEUE FULL). 


If the <queue reference> designates the NDL 
queue and the appropriate DCP is in a hardware er- 
ror state, the message is returned to the MCS queue 
with result field equal to the DC HARDWARE er- 
ror. However, if the MCS queue count equals 255, 
the message is queued. Instead, an error is 
monitored (QUEUE FULL). 


If the <queue reference> designates the NDL 
queue, the message header must satisfy the following 
conditions: 


1. MESSAGE.TYPE field must be less than 12 
(else, BAD, MSG, TYPE). 

2. For the following messages the MESSAGE- 
-LINE field must contain a_ valid logical line num- 
ber (else, BAD LINE NUMBER): 


MAKE LINE READY/NOT READY 
DIALOUT 
IMMEDIATE LINE NOT READY 


Also, the line must have at least one station attached 
(else, BAD MSG TYPE). 

3. For the following messages the MESSAGE.ST- 
ATION field muust contain a valid logical station 
number (else, BAD STATION NUMBER). 

OUTPUT 
PRIORITY OUTPUT 


ENABLE/DISABLE INPUT 
MAKE STATION READY/NOT READY 
Also, the designated station must be attached to a 
line (else, STATION NOT ATTACHED). 
4. If the MESSAGE.TYPE = DIALOUT, the test 
length must be non zero (else, BAD MSG TYPE). 


If the <queue reference> designates a subnet 
queue and the logical station number field of the 
message header is invalid, an error is monitored 
(BAD STATION NUMBER). 


QUEVUE.DEPTH 
QUEUE.DEPTH (<queue reference>) A Function 


This is a function which returns a value indicating 
the number of messages on the queue specified by 
<queue reference>. 


If the <queue reference> designates the NDL 
queue, an undefined station, or an undefined subnet 
queue, a value of @FFFF@ is returned. 


If the <queue reference> designates the MCS 
queue, then queue number must be zero or a value 
of @FFFF@ is returned. 


READ.HEADER 


READ.HEADER (<message variable> <variable> 
<error option>); 


This procedure causes the header information of 
the message space referenced by the <message 
variable> to be placed in the <variable>. 


If the <message variable> is null, an error is 
monitored. 


The <variable> must be of type character. 


The normal rules of data transfer apply. 


READ.TEXT 


READ.TEXT (<message variable>, <starting 
byte>, <byte length>, <variable> <error op- 
tion>); 


This is a procedure which causes the text con- 
tained in the message space referenced by <message 
variable> starting at byte <starting byte> for a 
length of <byte length> to be placed into the 
<variable>. 


If the <starting byte> is greater than the TEXT- 
.LENGTH given in the message header, an error is 
monitored. 


If the <message variable> is null, an error is 
monitored. 
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The <variable> must be of type character. 


The normal rules of data transfer apply. 


RECALL 


RECALL (<queue reference> <error option>); 


This is a procedure which causes all messages on. 


the referenced station queue or subnet queue to be 
delinked and placed on the MCS queue, followed by 
an end-recall message. 


If no message space is available to formulate the 
end-recall message, the procedure is not executed, 
the most significant eight bits of fetch value are set 
equal to @40@, and the remaining 16 bits are set 
equal to the event number corresponding to ‘‘nos- 
pace.”’ 


Messages recalled from a station’s (type bits) out- 
put save queue are marked with a result field = ‘‘re- 
called from output save queue.”’ 


Messages recalled from a station queue are 
marked with a result byte = ‘‘recalled from station”’ 
and the end-recall message is of type ‘‘end recall 
from station.’’ 


Messages recalled from a subnet queue are 
marked with a result byte = ‘“‘recalled from subnet 
queue’’ and the end-recall message is of type ‘“‘end 
recall from queue’’. 


If the <queue reference> designates any of the 
following, an error is monitored: 


1. The MCS queue. 

2. The NDL queue. 

3. An undefined station queue. 

4. An undefined subnet queue. 

5. A station queue for which the corresponding 
station is not attached to a line. 


REDEFINE.LINE 
REDEFINE.STATION (<line number>,<variable> 
<error option>); 


This is a procedure which allows the programmer 
to change certain characteristics of the line refer- 
enced by <line number>. The format of the infor- 
mation supplied in the variable is described in the 
Interrogate Layouts section. The variable must be of 
type character. 


If the <line number> designates an undefined 
line, an error is monitored. 


If the system cannot perform the redefinition be- 
cause of some inconsistency in the data, an error is 
monitored. 
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REDEFINE.STATION 
REDEFINE.STATION (<station number>,<va- 
riable> <error option>); 


This is a procedure which allows the programmer 
to change certain characteristics of the station refer- 
enced by <station number>. The format of the in- 
formation supplied in the variable is described in the 
Interrogate Layouts section of this document. The 
variable must be of type character. 


If the <station number> designates an undefined 
station, an error is monitored. 


If the system cannot perform the redefinition be- 
cause of some inconsistency in the data, an error is 
monitored. 


RELEASE.MESSAGE.SPACE 
a acc (<message 
variable>); 


This is a procedure which causes the message 
space referenced by the <message variable> to be 
returned to the available pool, and the <message 
variable> to be marked null. If initially it was null, 
this is a NO-OP. 


ROUTE.INPUT 
ROUTE.INPUT (<station number>,<queue refer- 
ence> <reroute> <error option>); 

<reroute ::= <empty> |, REROUTE 


This is a procedure which causes all subsequent 
input messages from the station referenced by <sta- 
tion number> to be placed onto the queue specified 
by <queue reference>. 


If the previous and new routing specify the same 
queue, then no action is taken. 


If the previous routing was to the MCS queue and 
the new routing is to a subnet queue, then any and 
all ‘“‘non special’’ input messages from the station 
are delinked from the MCS queue and placed on the 
subnet queue. A non special input message has a 
message header result field of zero. 


For each message moved from the MCS queue to 
the subnet queue, the station’s unprocessed input 
count is decremented and the subnet queue count is 
incremented for the destination subnet queue. No 
checks are made to prevent the subnet queue count 
from exceeding the subnet queue limit. 


If the previous routing was to a subnet queue, the 
new routing is to a different subnet queue, and the 
reroute option was specified, then any and all input 
messages from the station are delinked from the first 
queue and placed on the second queue. 


For each message removed from a subnet queue, 
the subnet queue count is decremented. For each 
message placed on the MCS queue, that station’s un- 
processed input count is incremented, and for mes- 
sages placed on another subnet queue, that subnet 
queue’s count is incremented. No checks are made 
to prevent the subnet queue or unprocessed input 
counts from exceeding the limits. 


The input order of the messages is always main- 
tained. 


If the <queue reference> specifies the NDL 
queue, any station queue or an undefined subnet 
queue, an error is monitored. 


If the <queue reference> specifies the MCS 
queue but queue number is not zero, an error is 
monitored. 


If the <station number> specifies an undefined 
station, or one which is not attached to a line, an er- 
ror 1S monitored. 


Checks are made to prevent the destination queue 
from exceeding 255 entries in the process of execu- 
ting this communicate. The rerouting is performed 
until the destination queue is full; then, rerouting is 
discontinued and an error result (QUEUE FULL) is 
returned to the MCS. Routing paths are not modified 
until the last message is successfully rerouted. 


ROUTE.OUTPUT 


ROUTE.OUTPUT (<station number>,<queue ref- 
erence> <error option>); 


This is a procedure which causes all subsequent 
output intended for the station referenced by <sta- 
tion number> to be placed onto the queue specified 
by <queue reference>. If the station’s output is to 
be routed to the NDL queue and had been routed to 
the MCS queue, the MCS queue is scanned and all 
messages of type ‘‘send’’ for the station are delinked 
from the MCS queue and linked to the NDL queue 
after their message types have been changed to 
‘‘output’’. The order of the messages is maintained, 
and the appropriate queue depths are updated. 


For each message rerouted from MCS queue to 
the NDL queue, the apppropriate task output count 
is decremented and, ultimately, the station queue 
count must be incremented. Any SEND messages 
that contain an invalid task number are not rerouted. 


Checks are made to prevent the destination queue 
from exceeding 255 entries in the process of execu- 
ting this communicate. The rerouting is performed 
until the destination queue is full; then, rerouting is 
discontinued and an error result (QUEUE FULL) ts 
returned to the MCS. Routing paths are not modified 
until the last message is successfully rerouted. 


In the case when routing is changed from the 
NDL queue to the MCS queue, no messages are 
rerouted. 


If the <queue reference> specifies any station 
queue or any subnet queue, an error is monitored. 


If the <station number> specifies an undefined 
station, or one which is not attached to a line, an er- 
ror 1S monitored. 


SET.INPUT.LIMIT 


SET.INPUT.LIMIT (<station number>,<limit> 
<error option>); limit < 128 


This is a procedure which causes the system’s buf- 
fer limiting mechanism to restrict the number of in- 
put messages accepted from a station, whose input 
is routed to the MCS, to be less than the <limit>. 
That is, the station’s unprocessed input limit is set 
equal to <limit>. 


Limiting value is updated regardless of whether 
Station input is currently directed to the MCS. 


If <limit> is greater than 127, the limiting value 
is set to 127. 


If the <station number> designates an undefined 
station, an error is monitored. 


SET.OUTPUT.LIMIT 
SET.OUTPUT.LIMIT (<task number>,<limit> 
<error option>); limit < 128 


This is a procedure which causes the system’s buf- 
fer limiting mechanism to restrict the number of out- 
put messages issued by a user task to any station 
whose output is routed to the MCS to be less than 
the <limit>. That is, the task’s output limit is set 
equal to <limit>. 


If the task number is invalid, an error is 
monitored. If the <limit> is greater than 127, the 
limiting value is set to 127. 


If the specified task is not executing, the results of 
this communicate are undefined. 


If the specified task has been suspended for 1is- 
suing too many SEND messages and the new limit 
is now greater than the output count, the task is 
made ready to run. 


SET.QUEUVUE.LIMIT 
SET.QUEUE.LIMIT (<queue reference>,<limit> 
<error option>); limit < 128 
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This is a procedure which causes the system’s buf- 
fer limiting mechanism to restrict the number of 
items placed on the queue to less than the <limit>. 
That is, the appropriate queue limit is set equal to 
<limit>. 


If the <queue reference> designates the MCS 
queue or the NDL queue and the queue number is 
zero, SET.QUEUE.LIMIT becomes a NO-OP. 


If the <queue reference> designates the MCS 
queue or the NDL queue and queue number is non- 
zero, an error is monitored. 


If the <queue reference> designates an undefined 
station or an undefined subnet queue, an error is 
monitored. 


If <limit> is greater than 127, the limiting value 
is set to 127. 


If a new limit is set for a station queue, and there 
are tasks suspended on output (MCS non-participat- 
ing) to that station, and if the new limit is greater 
than the old, those tasks are made ready to run. 


STATION.COUNT 
STATION.COUNT A Function 


This is a function which returns the number of sta- 
tions defined in the NDL program. 


STATION.DESCRIPTION 
STATION.DESCRIPTION (<station number>,<va- 
riable> <error option>); 


This procedure causes the definition of the station 
referenced by <station number> to be placed in the 
<variable>. The format of the information is de- 
scribed in the Interrogate Layouts section of this 
document. 


If the <station number> designates an undefined 
station, an error is monitored. 


The <variable> must be of type character. 


The normal rules of data transfer apply. 


STATION.NUMBER 
STATION.NUMBER (<station name>) 
<station name> ::= <expression> A Function 


This is a function which, given a character string 
in <station name>, returns the corresponding logical 
station number. 


If the given character string is not a station name 
known to the system, a value of @FFFF@ is re- 
turned. 
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If the given character string is less than 12 charac- 
ters in length, spaces are automatically added to pro- 
duce a 12 character <station name>. 


If the given character string is more than 12 char- 
acters in length, only the first 12 characters are used 
as the <station name>. 


The <expression> must be of type character. 


STATION.STATUS 
STATION.STATUS (<station number>,<variable> 
<error option>); 


This is a procedure which causes the current sta- 
tus of the station referenced by <station number> 
to be placed in the <variable>. The format of the 
information is described in the interrogate layouts 
section of this document. 


If the <station number> designates an undefined 
station, an error is monitored. 


If the <station number> references an unattached 
Station, the bit representing STATION READY has 
no meaning. 


The normal rules of data transfer apply. 


SUBNET.COUNT 
SUBNET.COUNT A Function 


This is a function which returns the number of 
files (subnet queues) defined in the NDL program. 


SUBNET.DESCRIPTION 
SUBNET.DESCRIPTION (<queue number>, <var- 
iable> <error option>); 


This is a procedure which causes the definition of 
the subnet queue referenced by <queue number> to 
be placed in the <variable>. The format of the in- 
formation is described in the Interrogate Layouts 
section of this document. 


If the <queue number> designates an undefined 
subnet queue, an error is monitored. 


The <variable> must be of type character. 


The normal rules of data transfer apply. 


SUBNET.STATIONS 
SUBNET.STATIONS (<queue number>,<va- 
riable> <error option>); 


This is a procedure which places in the 
<variable> the logical station numbers of the sta- 
tions defined to be associated with the subnet queue 


referenced by <queue number>. The format of the 
information is described in the Interrogate Layouts 
section of this document. 


NOTE 
No more than 100 stations may be as- 
sociated with a particular subnet queue 
at any given time. 


If the <queue number> designates an undefined 
subnet queue, an error is monitored. 


The normal rules of data transfer apply. 


SUBNET.STATUS 


SUBNET.STATUS (<queue number>, <variable>, 
<error option>); 


This procedure causes the current status of the 
subnet referenced by <queue number> to be placed 
in the <variable>. If the <queue number> desig- 
nates an undefined subnet queue, an error is 
monitored (BAD SUBNET NUMBER). 


SUBNET.NUMBER 
SUBNET.NUMBER (<subnet name>) 
<subnet name> ::= <expression> A Function 

This is a function which, given a character string 
in <subnet name>, returns the corresponding subnet 
queue number. 


If the given character string is not a subnet queue 
name known to the system, a valueof @FFFF@ is 
returned. 


If the given character string is less than 12 charac- 
ters in length, spaces are automatically added to pro- 
duce a 12 character <subnet name>. 


If the given character string is more than 12 char- 
acters in length, only the first 12 characters are used 
as the <subnet name>. 


The <expression> must be of type character. 


TASK.NAME 
TASK.NAME (<task number>,<variable> <error 
option>); 


This is a procedure which, given a <task num- 
ber>, places in the <variable> the corresponding 
symbolic task name. 


If the <task number> is 0 or greater than 9, an 
error is monitored. 


If the <task number> is within range, but there is 


no such task in the mix, the <variable> is space 
filled. 


The normal rules of data transfer apply. 


The <variable> must be of type character. 


TASK.NUMBER | 
TASK.NUMBER (<task name>) 


<task name> ::= <expression> A Function 


This function returns the lowest task number 
found in the mix table that corresponds to the given 
<task name>. 


If the given character string is not a task name 
known to the system, a value of @FFFF@ is re- 
turned. 


If the given character string is less than 12 charac- 
ters in length, spaces are automatically added to pro- 
duce a 12 character <task name>. 


If the given character string is more than 12 char- 
acters in length, only the first 12 characters are used 
as the <task name>. 


The <expression> must be of type character. 


TASK.STATUS 
TASK.STATUS (<task number>, <variable>, <er- 
ror option>); 


This procedure causes the status of the task refer- 
enced by <task number> to be placed in the 
<variable>. 


If the <task number> is invalid, an error is 
monitored <BAD TASK NUMBER>. 


If the <task number> is valid but is not currently 
executing, byte 0 of the variable is set to @FF@. 


TERMINAL.COUNT 
TERMINAL.COUNT A Function 


This is a function which returns the number of ter- 
minals defined in the NDL program. 


TERMINAL.DESCRIPTION 
TERMINAL.DESCRIPTION (<terminal number>, 
<variable> <error option>); 


This procedure causes the definition of the termi- 
nal referenced by <terminal number> to be placed 
in the <variable>. The format of the information is 
described in the interrogate layouts section of this 
document. 


If the <terminal number> designates an undefined 
terminal, an error is monitored. 
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The <variable> must be of type character. 


The normal rules of data transfer apply. 


WRITE.HEADER 
WRITE.HEADER (<message variable>,<variable> 
<error option>); 


This procedure causes the data contained in the 
<variable> to be placed in the header of the mes- 
sage space referenced by <message variable>. Al- 
though the ‘‘message.length’’ field 1s accessible by 
the programmer, any attempt to change the contents 
of the field is ignored. 


If the <message variable> is null, an error is 
monitored. 


If an attempt is made to set TEXT.LENGTH to 
a value greater than MESSAGE.LENGTH, an error 
is monitored. 

The <variable> must be of type character. 


The normal rules of data transfer apply. 
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WRITE. TEXT 


WRITE.TEXT (<message variable>,<starting 
byte>, <byte length>, <variable> <error op- 
tion>); 


This procedure causes the text contained in the 
<variable> to be placed in the message space refer- 
enced by <message variable>, starting at <starting 
byte> for a length of <byte length>. 


If the <message variable> is null, an error is 
monitored. 


If the <starting byte> is greater than the ‘‘mes- 
sage length’’ given in the message header, an error 
is monitored. 


The <variable> must be of type character. 
The normal rules of data transfer apply. 


The contents of the TEXT.LENGTH field of the 
message header are not automatically updated as a 
result of this communicate. 


SECTION 3 
INTERROGATE LAYOUTS 


This section deals with data communications inter- 
rogates that are performed by certain MCS commu- 
nicates. This section is referenced by Section 2 and 
references Section 4. Each line in the layout 
diagrams represents two characters unless otherwise 
specified. 


DCP.DESCRIPTION 
NAME | 


NUMBER OF TERMINALS 


NAME 
| NAME. NAME 
NAME 
NAME 
NAME 
NAME 


NAME: _ 12 bytes 
Program file name. 

NUMBER OF TERMINALS: 2 bytes 
The number (0-127) of terminals declared to be 
associated with this program file name. 


DCP.PROGRAM.TERMINALS 


LOGICAL TERMINAL NUMBER 
LOGICAL TERMINAL NUMBER 


LOGICAL TERMINAL NUMBER: 2 bytes 
The logical terminal number(s) (0-126) associ- 
ated with a program file name. 


DCP.PROGRAM.NAMES 


NAME : 12 bytes 
DCP program file name. One 12-byte name for 
each data comm processor from zero to N. 


LINE.DESCRIPTION | 


For an explanation of the items see Line Table 
Lay out. 


LINE.STATIONS 


LOGICAL TERMINAL NUMBER 


This is a list of the logical station numbers at- 
tached to this line. Each logical station number is 
two bytes long. The number of items returned is de- 
pendent upon the maxstations value of the LINE- 
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.DESCRIPTION interrogate. However, maxstations 
never exceeds 100. 


LOGICAL STATION NUMBER 
LOGICAL STATION NUMBER | 
LOGICAL STATION NUMBER 


LINE.STATUS 


STATUS 


STATUS: 2 Bytes 16 Bits 


15S LINE QUEUED 

14 RESERVED 

13 STANDBY 

12 LINE READY 

11 RATE SELECT 

10 LINE CONNECTED 

9 SWITCHED BUSY 

8 LINE BUSY 

7 AUXILIARY LINE QUEVUED 
6 RESERVED 

5 RESERVED 

4 RESERVED 

3 RESERVED 

2 RESERVED 

1 RESERVED 

0 AUXILIARY LINE BUSY 


MODEM.DESCRIPTION 


For an explanation of the items, see Modem Table 
Layout. 


Noise delay and transmit delay are in normal bi- 
nary form (not one’s or two’s complement). 


REDEFINE.LINE 


TYPE 


MODEM 


For an explanation of the items, see Line Table 
Layout. 
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REDEFINE.STATION 


LOGICAL LINE NO RUN MODE BITS 
END CHARACTER DELETE CHARACTER 
BACKSPACE CHAR WRU CHARACTER 


CONTROL CHARACTER | STATION FREQUENCY 
TRANSMIT ADDR 1 TRANSMIT ADDR 2 


TRANSMIT ADDR 3 RECEIVE ADDR 1 


RECEIVE ADDR 2 RECEIVE ADDR 3 


TERMINAL 


For an explanation of the items, see Station 
Table Layout. 


STATION.DESCRIPTION 


LOGICAL LINE NO RUN MODE BITS 


END CHARACTER LINE DELETE CHARACTER 
BACKSPACE CHARACTER WRU CHARACTER 
CONTROL CHARACTER STATION FREQUENCY 
TRANSMIT ADDRESS 1 TRANSMIT ADDRESS 2 
TRANSMIT ADDRESS 3 RECEIVE ADDRESS 1 


RECEIVE ADDRESS 2 RECEIVE ADDRESS 3 


| 


SPEED 
TERMINAL 


MCS DATA BITS 
| WIDTH PAGE 
DIGIT COUNT PHONE NUMBER | 
PHONE NUMBER. 


NUM 


PHONE 
PHONE 


= 
les] 


ORIGINAL RETRY 


For an explanation of the items, see Station 
Table Layout and Extended Station Table Layout. 


STATION.STATUS 


erRTu INPUT 
UNPROCESSED UNPROCESSED 
INPUT LIMIT INPUT COUNT 
STATION STATION 
QUEUE LIMIT QUEUE COUNT 


7 STATION QUEUED 

6 RESERVED 

5 RESERVED 

4 RESERVED 

3 RESERVED 

2 STATION ATTACHED 
1 ENABLED INPUT 

0 STATION READY 


INPUT QUEUE NUMBER -1 BYTE 


This contains the subnet number to which input 
from the station is to be routed; @FF@ if routing is 
to MCS input queue. (if STATION ATTACHED is 
false, STATION READY has no meaning.) 


SUBNET.DESCRIPTION 


NAME: 12 bytes 


Symbolic subnet (file) queue name, left-justified 
with space filler. 


NUMBER OF STATIONS: 2 bytes/binary the 
number of stations declared to be associated with 
this subnet queue. 


SUBNET.STATIONS 


LOGICAL STATION NUMBER 
LOGICAL STATION NUMBER 


LOGICAL STATION NUMBER 


LOGICAL STATION NUMBER 


This is a list of the logical station numbers associ- 
ated with this subnet queue. Each logical station 
number is two bytes long. The number of items re- 
turned depends on the ‘‘number of stations’’ field re- 
turned by the SUBNET.DESCRIPTION interrogate. 
The number of stations never exceeds 100. 


SUBNET.STATUS 


SUBNET QUEUE SUBNET QUEUE 
LIMIT COUNT 


SUBNET QUEUE LIMIT — 1 BYTE 


This is the current maximum number of messages 
which may be queued on this subnet. 


SUBNET QUEUE COUNT — | BYTE 


This is the number of unprocessed messages on 


this subnet queue. 
QUEUE REFERENCE 


TASK. STATUS 


STATUS 
QUEUE REFERENCE LIMIT 


COUNT 


STATUS: 5 BYTES — 40 BITS 


1. Byte 0 = @FF@ if the specified task is not in 
the mix or is not a-user data comm job. 
2. Otherwise, byte 0: 
= @00@ if task is not waiting. 
@01@ if task is waited on QUEUE LIMIT. 
@02@ if task is waited on RECEIVE. 
@03@ if task is waited on ATTACH. 
@04@ if task is waiting for space. 
3. Bytes 1, 2: 
= QUEUE REFERENCE if waited for LIMIT, 
RECEIVE, or ATTACH. 
= @FFFF@ if waiting for space. 
4. Byte 3 = TASK OUTPUT LIMIT. 
5. Byte 4 = TASK OUTPUT COUNT. 
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TERMINAL.DESCRIPTION 
| RUNMODE BS 


R-—AD COUNT 


RUN MODE BITS 
T-AD COUNT 


SV QUEUE LIMIT 


SYNC CHARACTER PARITY MASK 
STANDARD TIMEOUT 
TURNAROUND DELAY 
AUXILIARY LINE CONTROL POINTER 
LINE CONTROL POINTER 
RECEIVE REQUEST POINTER 

TRANSMIT REQUEST POINTER 

TRANSLATION TABLE POINTER 
MAXIMUM INPUT SIZE 


ADAPTER INFO NUMBER OF BUFFERS 
TYPE 
SPEED 
STOP BITS 


MCS DATA BITS 


WIDTH PAGE 
CARRIAGE CHARACTER LINEFEED CHARACTER 


HOME CHARACTER CLEAR CHARACTER 


For an explanation of the items, see Terminal Ta- 
ble Layout and Extended Terminal Table Layout. 


Standard timeout, turnaround delay, and 
maximum input size are in normal binary form (not 
one’s or two’s complement). 


SECTION 4 
NDL TABLES 


GENERAL 


This section deals with the tables that are used by 
the network definition language to control the 
various portions of the data communications subsys- 
tem. Some of these tables are also used to obtain in- 
formation for the interrogate layouts described in 
Section 3. Each line of an NDL table diagram repre- 
sents two ch characters. ; unless ‘otherwise specified. 


LINE TABLE LAYOUT 


LINE DESCRIPTOR 


LOGICAL LINENO) 


AUX LINE DESCRIPTOR 


STATION TALLY (0) | STATION DESCRIPTOR OZ, os 


STATION TABLE POINTER (0) 


STATION TALLY (N—1) STATION DESCRIPTOR (N—1) 


STATION TABLE POINTER (N—1) 


LINE DESCRIPTOR 
2 Bytes 


This field consists of the 16 one-bit flags listed be- 
low. Bits 14, 10, 7, 6, 5, 4, and 3 are set_according 


essmecne anne t 


to information 1 supplied i in the NDL program. The re- 
maining bits are initialized to zero ‘by the NDL com- 


piler. 
15 LINE QUEUED 
14 DIALOUT CAPABLE —— 
13 STANDBY 
12 LINE READY 
11 RATE SELECT 
10 LINE CONNECTED -— 
9 SWITCHED BUSY 
8 LINE BUSY 
7 LINE PULSE/ACU DIALOUT ~= 
6 SWITCHED ~ 
§ FULL DUPLEX — 
4 DISCONNECT ON LOSS OF CARRIER — 
3 ASYNCHRONOUS — 


2 RESERVED 
1 LINE TOG (1) 
0 LINE TOG (0) 


LINE TALLY (1) 
1 Byte/Binary 


Contains the NDL byte variable known as LINE 
TALLY (1). It is initialized to zero by the NDL 
compiler. 


LINE TALLY (0) 
1 Byte/Binary 


Contains the NDL byte variable known as LINE 
TALLY (0). It is initialized to zero by the NDL 
compiler. 


MAX ENTRIES | 
1 Byte/Binary 


Contains the value specified in the NDL program 
for MAXSTATIONS. It equals the maximum num- 


ber_of stations that may be attached to this line at 


the same time. M AX ENTRIES can never exceed 


MAXSTATIONS 


1 Byte/Binary 


Contains the run time value MAXSTATIONS. It 
equals the number of stations currently ly attached to 
this line. It is initialized by the compiler according 
to information supplied in the NDL program. Like 


MAX ENTRIES, MAXSTATIONS can never_ exceed 


100. 


AUXILIARY LINE TALLY (1) 


1 Byte/Binary 


Contains the NDL byte variable known as AUX 


4.1 


LINE TALLY (1). It is initialized to zero by the 
NDL compiler. 


AUXILIARY LINE TALLY (0) 
1 Byte/Binary 


Contains the NDL byte variable known as AUX 
LINE TALLY (0). It is initialized to zero by the 
NDL compiler. 


LINE ADDRESS 
2 Bytes/Binary 


Contains the line’s physical. . This field is 


lun vasa ASC Bd SA ad RNR 


initialized by the NDL compiler. 


LOGICAL LINE NUMBER 


Ha kc AS i NRG aks Web HE 


1 Byte/Binary 


Contains the logical number that has been _as- 
signed to this line by the NDL compiler, 


MODEM 
1 Byte/Binary 


Contains the logical number of the modem that is 


ener enna SOAR EAMONN NOONE MPR HAI 


attached to this line. 


TYPE 


ih Smee 


2 Bytes 


Contains the 16 one-bit flags listed below. The 
flags are initialized by the compiler according to in- 
formation supplied in the NDL program. 


15 SPECIAL 

14 BITS 

13 BDI 

12 TELEX 

11 STANDBY TRUE 

10 STANDBY OPTION 

9 LOW/HIGH RATE 

8 RATE SELECT 

7 MODEM 

6 DISCONNECT ON LOSS OF CARRIER 
5 LINE PULSE/ACU DIALOUT 

4 DIALOUT 

3 DIALIN 

2 ASCII/EBCDIC SYNC CHARACTER 
1 ASYNCHRONOUS 

0 FULL DUPLEX 
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AUX LINE DESCRIPTOR 
2 Bytes 


Contains the 16 one-bit flags listed below. This 
field is initialized to zero by the NDL compiler. 


estonia te nate iA OSTO NESE 


15 AUX LINE QUEUED 
14 AUX LINE TOG (0) 
13 AUX LINE TOG (1) 
12 RESERVED 

11 RESERVED 

10 RESERVED 

9 RESERVED 

8 AUX LINE BUSY 

7 RESERVED 

6 RESERVED 

5 RESERVED 

4 RESERVED 

3 RESERVED 

2 RESERVED 

1 RESERVED 

0 RESERVED 


STATION TALLIES 
1 Byte Each/Binary 


For each of the line’s stations, one byte is allo- 
cated to contain the NDL byte variable, STATION 
TALLY. These bytes are initialized to zero by the 
NDL compiler. 


_STATION DESCRIPTORS 


1 Byte Each 


For each of the line’s stations, one byte is allo- 
cated to contain the eight one-bit flags listed below. 


EVO NAAT ARCA IER IESE ENS 


The NDL compiler sets bits 7 through 4 to zero, bits 


3, 2 and 1 according to information supplied in the 
NDL program, and bit 0 to binary 1. 


7 STATION QUEUED 
6 RESERVED 

5 RESERVED 

4 RESERVED 

3 MYUSE OUTPUT ~ 
2 MYUSE INPUT — 

1 ENABLED INPUT ~~ 
0 STATION READY 4 


STATION TABLE POINTERS 
2 Bytes Each/Binary 


For each of the line’s stations, two bytes are allo- 
ae. to contain a pointer to the appropriate station 
table. | 

On disk, this field contains a logical station num- 
ber supplied by the NDL compiler. 

In memory, it contains the absolute address of a 
Station table. This value is inserted by the DC loader 
at DC initialize time. 


STATION TABLE LAYOUT LOGICAL LINE NUMBER 
1 Byte/Binary 


LOGICAL LINE NO RELATIVE STATION NO Contains the logical number assigned to this sta- 
END CHARACTER LINE DELETE CHARACTER tion's line by the NDL compiler. If the station is not 
initially attached to a line, this field should contain 
BACKSPACE CHARACTER WRU CHARACTER all ‘ones 
CONTROL CHARACTER STATION FREQUENCY RE . | 
RUN MODE BITS TRANSMIT ADDRESS—3 1 Byte/Binary 
RECEIVE ADDRESS~2 RECEIVE ADDRESS-~1 _ Contains the station’s relative position within the 
| list of stations in the line table. It is initialized by the 
RECEIVED RECEIVE ADDRESS-—3 NDL compiler. 


RECEIVE TRANSMISSION NO./OUTPUT SAVE QUEUE HEAD 
TRANSMIT TRANSMISSION NO./OUTPUT SAVE QUEUE TAIL END CHARACTER 
LOGICAL STATION NO 1 Byte/ASCII 


Contains the ASCII value of the end character 
specified in the NDL program. 


UNPROCESSED INPUT LIMIT | UNPROCESSED INPUT COUNT 


ORIGINAL RETRY RETRY 


TALLY (© LINE DELETE CHARACTER 


Lei ase etin eh ASAE RENTED OREN USER TREE AS BOAT NHI OETUERO CTITNOL ASHP 


TOGGLES (7—>0) 1 Byte/ ASCII 


EVENTS Contains the ASCII value of the line delete char- 
acter specified in the NDL program. 


TALLY (1) 
TALLY (2) 


OPTIONS 
EVENTS 


ACTIVE TRANSMIT DELAY 
1 Byte/ASCII 


Contains the ASCII value of the backspace char- 
acter specified in the NDL program. 


STATION QUEUE HEAD 


STATION QUEUE TAIL 


QUEUE LIMIT QUEUE COUNT 


ATTACHED STATUS WRU_CHARACTER 
— 1 Byte/ASCII 


SUBNET QUEUE ADDRESS 


LINE PRIORITY CODE Contains the ASCII value of the WRU character 
specified in the NDL program. 


_ 2 CONTROL CHARACTER 
MODEM TERMINAL 


TALLY (3) 1 Byte/ASCIl 


TALLY (5) 


RESERVED 


| | 


TALLY (4) 
ae) Contains the ASCII value of the control character 
TALLY (7) specified in the NDL program. 


TALLY (9) STATION FREQUENCY 
TALLY (11) 
1 Byte/Binary 


TALLY (8) 
TALLY (10) 


TALLY (12) 
TALLY (14) TALLY (13) | 


TALLY (16) TALLY (15) 


Contains the value specified in the NDL program 
TALLY (17) for frequency. 


dll deat he ese a Meee ene haces TRANSMIT_ADDRESS 
INPUT SAVE QUEUE HEAD 3 Bytes/ASCII 


Contains the transmit address characters as 
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TALLY (18) 


| INPUT SAVE QUEUE TAIL 


specified in the NDL program. A maximum of three 
characters may be used. Zeroes appear for any char- 
acter that is not specified. 


RUN MODE BITS 
1 Byte 


Contains the eight one-bit flags listed below. Flags 
0 through 3 are initialized to zero by the NDL com- 
piler while flags - h 7 are set according to val- 


RASHES 


ues specified in the NDL .. program. These bits repre- 


Re CPP HENS OV NEES RUSE ME TREASURE 


sent the state of the station at the start of the run. 


7 MYUSE OUTPUT -—— 
6 MYUSE INPUT -- 
5 SECOND STOP BIT -~ 
4 ENABLE INPUT — 
3 IMPLEMENTATION DEPENDENT* 
2 RESERVED 
1 RESERVED 
0 RESERVED 
*Used by B 800 as the route output indicator (0 = route to MCS). 


RECEIVE ADDRESS 
3 Bytes/ASCIl 


Contains the receive address characters as 
specified in the NDL program. A maximum of three 
characters may be used. Zeros appear for any char- 
acter that is not specified. 


RECEIVE TRANSMISSION 
NUMBER 


2 Bytes 


Contains the receive transmission number in four- 
bit binary coded decimal form. A maximum of three 
digits may be used. The entire field is initialized to 
zero by the NDL compiler. 


NOTE 
For input messages, this field is moved 
to the message header at NDL termin- 
ate time. 


TRANSMIT TRANSMISSION 
NUMBER 


2 Bytes 


Contains the transmit transmission number in four- 
bit binary coded decimal form. A maximum of three 
digits may be used. The entire field is initialized to 
zero by the NDL compiler. 
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OUTPUT SAVE QUEUE HEAD 
2 Bytes/Binary 


For stations of type bits, contains the absolute ad- 
dress of the next output or priority output message 
still unacknowledged by the remote station. This 
field is initialized to zero by the NDL compiler. 


Output and priority output messages are queued to 
this save queue by the NDL construct, ‘‘terminate 
Save’’, executed in the transmit request set. 


OUTPUT SAVE QUEUE TAIL 
2 Bytes/Binary 


For stations of type bits, contains the absolute ad- 
dress of the most recent message still unacknow- 
ledged by the remote station. This field is initialized 
to zero. 


LOGICAL STATION NUMBER 
2 Bytes/Binary 


Contains the logical number assigned to this _sta- 
tion by the NDL compiler. 


UNPROCESSED INPUT LIMIT 
1 Byte/Binary 


Contains the maximum value that unprocessed in- 
put count is allowed to have. It is initialized to two 


by the NDL compiler. 
UNPROCESSED INPUT COUNT 


1 Byte/Binary 


rd 


Contains the number of input messages from this 
station, routed to the MCS, that have been accepted 
by the DC-firmware, but have not yet been pro- 
cessed by the MCS. The field is initialized to zero 
by the NDL compiler. 


ORIGINAL RETRY 
1 Byte/Binary 
Contains the retry value Specified 1 in the NDL pro- 


RSI EL OLS er 


gram for this station. The maximum. _value_the user 


may assign to original retry is 254. The value 255 is 
reserved for system use. 


RETRY 
1 Byte/Binary 


Contains the run time retry count for input. mes- 
sages to this station. It is initialized to the retry val- 
ue_as specified for the original retry. 


NOTE 
This field is moved to the message 
header at NDL terminate time. The 
retry value for output messages, how- 
ever, iS maintained in the message 
header, not the station table. 


TALLIES 
Three 1-Byte Fields/Binary 


Each field contains one of the NDL station tally 
byte variables. All three bytes are initialized to zero 
by the NDL compiler. 


TOGGLES 
1 Byte 


Contains the eight NDL bit variables listed below. 
The NDL compiler initializes this byte to zero. 


7 TOGGLE (7) 
6 TOGGLE (6) 
5 TOGGLE (5) 
4 TOGGLE (4) 
3 TOGGLE (3) 
2 TOGGLE (2) 
1 TOGGLE (1) 
0 TOGGLE (0) 


OPTIONS | 
1 Byte 


Contains the NDL options flags for input mes- 
sages to this station. The flags are moved to the 
message header at NDL terminate time. The NDL 
compiler initializes this field to zero. 


NOTE 
The options flags for output messages 
are maintained in the message header. 
7 LINEFEED 


6 CARRIAGE 

5 PAPERMOTION 
4 PAGE 

3 SKIP 

2 TRANSPARENT 
1 BLOCK 

0 SPACE 


Bytes 


Contains the NDL events flags for input_messages 


i 


to this station. The flags. are moved to the message 
header at at NDL terminate time. The NDL compiler 
initializes all three bytes to zero. 


NOTE 
The events flags for output messages 
are maintained in the message header. 


23 NAK RECEIVED 

22 NAK ON SELECT 

21 NO SPACE 

20 TERMINATE ERROR 

19 DISCONNECT 

18 TERMINATE NO LABEL 

17 ADAPTER FAULT 

16 MODEM NOT READY 

15 CONTROL CHARACTER RECEIVED 

14 WRU CHARACTER RECEIVED 

13 TRANSMISSION NUMBER ERROR 

12 MESSAGE LENGTH EXCEEDED 

11 EVENT 1 

10 FORMAT ERROR 

9 BCC ERROR 

8 ADDRESS ERROR 

7 SYNCHRONOUS TRANSMISSION UNDERFLOW 
6 BREAK ON TRANSIT 

5 LOSS OF CARRIER 

4 CHARACTER PARITY ERROR/INVALID FRAME 
3 BREAK ON RECEIVE/IDLE 

2 BYTE OVERFLOW-SERVICED TOO LATE 
1 STOP BIT ERROR/ABORT 

0 TIMEOUT 


2 Bytes/Binary Two's 
Complement 


Contains the noise. delay. value. a 


ACTIVE ‘TRANSMIT DELAY 


2 Bytes/Binary Two’s 
Complement 


Contains the greatest of the following values: 


Terminal turnaround delay 
Station modem noise delay 
Line modem transmit delay 


It is initialized by the NDL compiler. 
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STATION QUEUE HEAD 
2 Bytes/Binary 


Contains the absolute address of the next 
input or output message to be processed by this sta- 
tion. It is initialized to zero by the NDL compiler. 
The use of this field is implementation dependent. 


STATION QUEUE TAIL 
2 Bytes/Binary 


Contains the absolute address of the final 
message that is currently waiting to be processed by 
this station. It is initialized to zero by the NDL com- 
piler. The use of this field is implementation depend- 
ent. 


QUEUE LIMIT 
1 Byte/Binary 


Contains the maximum value that queue count is 
allowed to have. It is initialized to two by the NDL 
compiler. The use of this field is implementation de- 
pendent. 


QUEUE COUNT 
1 Byte/Binary 


Contains the number of message spaces of type 
output that are currently linked to the station queue. 
It is initialized to zero by the NDL compiler. The 
use of this field is implementation dependent. 


ATTACHED STATUS 
2 Bytes 


Contains run time information as to whether or 
not this station is attached to a particular task. If it 
is, the bit corresponding to the task’s ID is set by 
the DC firmware. The field is initialized to zero by 


the NDL compiler. 
15 TASK ID 15 
14 TASK ID 14 
13 TASK ID 13 
12 TASK ID 12 
11 TASK ID 11 
10 TASK ID 10 


8 TASK I 
7 TASK I 
6 TASK ID 
5 TASK ID 
4 TASK ID 

D 

D 


wie) 


3 TASK I 
2 TASK I 
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1 TASK ID 1 
0 TASK ID 0 
The use of this field is implementation dependent. 


WAIT STATUS 
2 Bytes 


Contains run time information as to whether or 
not a particular task is waiting until queue count be- 
comes less than queue limit. 


If a task is being waited, the bit corresponding to 
that task’s ID is set by the DC firmware. The field 
is initialized to zero by the NDL compiler. 


15 TASK ID 15 
14 TASK ID 14 
13 TASK ID 13 
12 TASK ID 12 
11 TASK ID 11 
10 TASK ID 10 
9 TASK ID 9 
8 TASK ID 8 
7 TASK ID 7 
6 TASK ID 6 
5 TASK ID 5 
4 TASK ID 4 
D 3 

D 2 

1 


1 TASK ID 
0 TASK ID 0 


The use of this field is implementation dependent. 


SUBNET QUEUE ADDRESS 
2 Bytes/Binary 
Contains a pointer to the subnet queue to which 


this station’s input is routed. If input is routed to the 
MCS, this field contains all ones. 


This field is initialized to all ones by the NDL 
compiler and is updated by the DC communicate 
handler. The use of this field is implementation de- 
pendent. 


LINE PRIORITY CODE 
1 Byte/Binary 


Contains an eight-bit code indicating the speed of 
this station’s line. It is initialized by the NDL com- 
piler according to the line priority chart. 


TYPE 
2 Bytes 


Contains the 16 one-bit flags listed below which 
are set according to information supplied in the NDL 
program. 


15 SPECIAL 
14 BITS 
13 BDI 


12 TELEX 

11 RESERVED 

10 RESERVED 

9 RESERVED 

8 RESERVED 

7 MODEM 

6 RESERVED 

5 RESERVED 

4 RESERVED 

3 TALLIES 

2 ASCIVEBCDIC SYNC CHARACTER 
1 ASYNCHRONOUS 
0 FULL DUPLEX 


SPEED 
2 Bytes 


Indicates the frequency to be used with this sta- 
tion. The valid speeds are listed as follows by bit po- 
sition. Note that the bits take on different meanings 
for synchronous and asynchronous speeds. 


The appropriate bits are set by the NDL compiler. 


Asynchronous Synchronous 
15-Reserved Reserved 
14-38,400 BPS Reserved 
13-19,200 BPS Reserved 
12-9,600 BPS Reserved 
11-4,800 BPS Reserved 
10-2,400 BPS Reserved 
9-1,800 BPS Reserved 
8-1,200 Reserved 
4-600 BPS 9,600 BPS 
6-300 BPS 7,200 BPS 
5-200 BPS 4,800 BPS 
4-150 BPS 3,600 BPS 
3-110 BPS 2,400 BPS 
2-100 BPS 2,000 BPS 
1-75 BPS 1,200 BPS 
0-50 BPS 600 BPS 


BPS=Bits per second. 


MODEM _ 
Byte/Binary 


Contains the logical number assigned to this sta- 
tion’s modem by the NDL compiler. 


TALLY (3) THROUGH TALLY (18) 
16 Fields, 1 Byte/Binary 


Each field contains one of the 16 extra byte 
variables required by a station of type bits. The 
extra tallies are assigned via the NDL TALLIES 


Statement. These tallies cannot be stored in the mes- 
sage header. All bytes are initialized to zero by the 
NDL compiler. 


OUTPUT SAVE QUEUE COUNT 
1 Byte/Binary 


Used only by stations of type bits. Contains the 
number of messages currently in the output save 
queue. It is initialized to zero by the NDL compiler. 


INPUT SAVE QUEUE COUNT 
1 Byte Binary 


Used only by stations of type bits. Contains the 
number of messages currently in the input save 
queue. It is initialized to zero by the NDL compiler. 


INPUT SAVE QUEUE HEAD 
2 Bytes/Binary 


For stations of type bits, contains the absolute ad- 
dress of the next input message from the station to 
be acknowledged. This field is initialized to zero by 
the NDL compiler. Input messages are queued to 
the input save queue by the NDL instruction TER- 
MINATE SAVE when executed in the receive re- 
quest set. 


INPUT SAVE QUEUE TAIL 
2 Bytes/Binary 


For station of type bits, contains the absolute ad- 
dress of the latest message still unacknowledged to 
the remote station. This field is initialized to zero 
by the NDL compiler. 


TERMINAL 
1 Byte/Binary 


Contains the logical number assigned to this sta- 
tion’s terminal by the NDL compiler. 


MODEM TABLE LAYOUT 


SPEED 
NOISE DELAY 


TRANSMIT DELAY 
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TYPE 
2 Bytes 


Contains the 16 one-bit flags listed below. The 
flags are initialized by the compiler according to in- 
formation supplied in the NDL program. 

15 SPECIAL 

14 RESERVED 

13 RESERVED 

12 RESERVED 

11 RESERVED 

10 STANDBY OPTION 

9 RESERVED 

8 RATE SELECT 

7 MODEM 

6 DISCONNECT ON LOSS OF CARRIER 

5 ANSWERTONE NEEDED 

4 DIALOUT 

3 DIALIN 

2 RESERVED 

1 ASYNCHRONOUS 

0 FULL DUPLEX 


SPEED 
2 Bytes 


Indicates the frequency to be used with this mod- 
em. The valid speeds are listed below by bit posi- 
tion. Note that the bits take on different meanings 
for synchronous and asynchronous speeds. 


The appropriate bits are set by the NDL compiler. 


Asynchronous Synchronous 
15 Reserved Reserved 
14 38,400 BPS Reserved 
13 19,200 BPS Reserved 
12 9,600 BPS Reserved 
11 4,800 BPS Reserved 
10 2,400 BPS Reserved 
9 1,800 BPS Reserved 
8 1,200 BPS Reserved 
7 600 BPS 9,600 BPS 
6 300 BPS 7,200 BPS 
5 200 BPS 4,800 BPS 
4 150 BPS 3,600 BPS 
3 110 BPS 2,400 BPS 
2 100 BPS 2,000 BPS 
1 75 BPS 1,200 BPS 
0 50 BPS 600 BPS 


NOISE DELAY 


2 Bytes/Binary - Two’s 
Complement 


Contains the noise delay as specified for this mod- 
em in the NDL program. 
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TRANSMIT DELAY 


2 Bytes/Binary - Two's 
Complement 


Contains the transmit delay as specified for this 
modem in the NDL program. 


TERMINAL TABLE LAYOUT 


T-—AD COUNT R-—AD COUNT 
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RUN MODE BITS 
2 Bytes 


Contains the 16 one-bit flags listed below. Flags 7, 
5, and 2 are initialized to zero by the NDL com- 
piler. The remaining flags are set according to infor- 
mation supplied in the NDL program. 


15 VERTICAL 

14 HORIZONTAL 

13 NO TRANSLATE 
12 BCC ONES 

11 FULL DUPLEX 
10 TRANSPARENT 
9 CASESHIFT 

8 BCC/CRC 

7 RESERVED 

6 BITS 

5 RESERVED 

4 MOD8/MOD128 

3 ODD/EVEN PARITY 
2 SUMMED PARITY 
1 CRC-1/(ECMA) 

0 SYNC/ASYNC 


TR-COUNT 
1 Byte/Binary 


Contains the number of digits to be used in the re- 
ceive and transmit transmission numbers. It is initial- 
ized by the NDL compiler. 


SV QUEUE LIMIT 
1 Byte/Binary 


For terminals of type bits, contains the number of 


messages allowed to be queued to the output save 


queue. It is initialized to the value specified in the 
NDL SAVE statement. 


T-AD COUNT 
4 Bits/Binary 


Contains the number of characters to be used in 
the transmit address. It is initialized by the NDL 
compiler. 


R-AD COUNT 
4 Bits/Binary 


Contains the number of characters to be used in 
the receive address. It is initialized by the NDL 
compiler. 


SYNC CHARACTER 
1 Byte 


For terminals not of type bits. Contains the sync 
character in either ASCII or EBCDIC form as de- 
fined in the NDL. Forjbits' terminals, contains the 
flag sequence value of Hex 7E. 


PARITY MASK 
1 Byte 


Contains a mask character that has a binary 1 in 
each bit position that contains data (excluding parity) 
in a normal data character. The remaining bit posi- 
tions contain a binary 0. The field is initialized by 
the NDL compiler. 


STANDARD TIMEOUT 


2 Bytes/Binary Two’s 
Complement 


Contains the timeout value specified in the NDL 
program. 


AUXILIARY LINE CONTROL 
POINTER 


2 Bytes/Binary 


On disk, this field contains the logical number of 
the control set specified for this terminal’s AUX line 
control. 


In memory, this field is updated by the DC loader 
to contain the absolute address of the appropriate 
control set. 


If no AUX line control is specified for this termi- 
nal, the field contains all ones. 


TURNAROUND DELAY 


2 Bytes/Binary Two’s 
Complement 


Contains the turnaround time value specified in 
the NDL program. 


LINE CONTROL POINTER 
2 Bytes/Binary 


On disk, this field contains the logical number of 
the control set specified for this terminal’s line con- 
trol. 


In memory, this field is updated by the DC loader 
to contain the absolute address of the appropriate 
control set. 


RECEIVE REQUEST POINTER 
2 Bytes/Binary 


On disk, this field contains the logical number of 
the request set specified for this terminal’s receive 
request. 


In memory, this field is updated by the DC loader 
to contain the absolute address of the appropriate re- 
quest set. 


If no receive request is specified for this terminal, 
the field contains all ones. 
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TRANSMIT REQUEST POINTER 
2 Bytes/Binary 


On disk, this field contains the logical number of 
the request set specified for this terminal’s receive 
request. 


In memory, this field is updated by the DC loader 
to contain the absolute address of the appropriate re- 
quest set. 


If no transmit request is specified for this terminal, 
the field contains all ones. 


TRANSLATION TABLE POINTER 
2 Bytes/Binary 


On disk, this field contains the logical number of 
the translation table specified for this terminal. 


In memory, this field is updated by the DC loader 
to contain the absolute address of the appropriate ta- 
ble. 


If no translation table is specified for this terminal, 
the field contains all ones. 


MAXIMUM INPUT SIZE 


2 Bytes/Binary One's 
Complement 


Contains the size in bytes of the largest message 
that can be inputted from this terminal as specified 
in the NDL program. 


ADAPTER INFO 
1 Byte 


Contains information used by the DC firmware to 
condition the hardware. The field is initialized by the 
NDL compiler from information supplied in the 
NDL program. 


7 RECEIVE PARITY 
6 EVEN PARITY 
5 ASYNCHRONOUS 
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4 CHARACTER SIZE 

3 CHARACTER SIZE 
2 TRANSMIT PARITY | 
1 RESERVED 

0 BINARY 1 


NOTE 
Character size is a two-bit code indicat- 
ing the number of bits (including parity) 
to be used in a normal data character. 
It is specified as follows: 


11 FIVE-BIT CHARACTER 
10 SIX-BIT CHARACTER 

01 SEVEN-BIT CHARACTER 
00 EIGHT-BIT CHARACTER 


NUMBER OF BUFFERS 


1 Byte/Binary One’s Complement 


Contains the number of DC buffers needed to hold 
a message (header plus text) for this terminal. It is 
computed by the NDL compiler as follows: 


1. Let Y equal this terminal’s maximum input size 

2. Let Z equal 2* (DC-buffer-size-1) 

3. Let N equal the integer value (Y + 37)/Z 

4. Then ‘‘number of buffers’? equals the one’s complement of 
N. 


TYPE 
2 Bytes 


Contains the 16 one-bit flags listed below. Flags 
15, 14, 13, 12, 8, 7, 3, 2, and 1 are set by the com- 
piler according to information supplied in the NDL 
program. The remaining flags are initialized to zero. 


15 SPECIAL 

14 BITS 

13 BDI 

12 TELEX 

11 RESERVED 

10 RESERVED 

9 RESERVED 

8 DIRECT 

7 MODEM 

6 RESERVED 

5 RESERVED 

4 RESERVED 

3 TALLIES 

2 ASCIVEBCDIC SYNC CHARACTER 
1 ASYNCHRONOUS 
0 FULL DUPLEX 


SPEED 
2 Bytes 


Indicates the frequency to be used with this termi- 


nal. The valid speeds are listed below by bit posi- 
tion. Note that the bits take on different meanings 
for synchronous and asynchronous speeds. 


For synchronous terminals, only one bit indicating 
the maximum speed may be set. 


For asynchronous terminals, multiple bits may be 
set indicating that several speeds are possible. 


The appropriate bits are set by the NDL compiler. 


Asynchronous Synchronous 
15 RESERVED RESERVED 
14 38,400 BPS RESERVED 
13 19,200 BPS RESERVED 
12 9,600 BPS RESERVED 
11 4,800 BPS RESERVED 
10 2,400 BPS RESERVED 
9 1,800 BPS RESERVED 
8 1,200 BPS RESERVED 
7 600 BPS 9,600 BPS 

6 300 BPS 7,200 BPS 

5 200 BPS 4,800 BPS 
4 150 BPS 3,600 BPS 

3 110 BPS 2,400 BPS 

2 100 BPS 2,000 BPS 

1 75 BPS 1,200 BPS 
0 50 BPS 600 BPS 
STOP BITS 

2 Bytes 


For asynchronous terminals, it is possible to 
specify several speeds. For each speed, it is possible 
to select either one or two stop bits. This field indi- 
cates the number of stop bits associated with each 
speed according to the speed’s bit position as de- 
fined above. If the bit is reset, one stop bit is used. 
If the bit is set, two stop bits are used. This field is 
initialized by the NDL compiler. 


FILE TABLE LAYOUT 
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INDEX TO LFN-X’S LSN-LIST 
2 Bytes/Binary 


Contains the index (byte offset divided by 2) from 
the base of the file table of the list of logical station 
numbers of the stations which are associated with 
logical-file-number X. 


LFN-X NUMBER OF STATIONS 
2 BYTES/BINARY 


Contains the number of stations which are associ- 
ated with logical-file-number X. 


LFN-X’S LSN-LIST 
Each Entry Is 2 Bytes/Binary 


Contains the list of the logical station numbers of 
the stations which are associated with logical-file- 
number X. 


EXTENDED STATION TABLE 
LAYOUT 


MCS DATA BITS 


WIDTH | PAGE 


DIGIT COUNT PHONE NUMBER 
PHONE NUMBER | 
PHONE NUMBER 


PHONE NUMBER 


MCS DATA BITS 
2 Bytes 


Contains information specified in the NDL pro- 
gram for this station which may be of interest to the 
MCS. 


15 SPO 

14 LOGIN 

13 WRAPAROUND 
12 RESERVED 
11 RESERVED 
10 RESERVED 
9 RESERVED 
8 RESERVED 
7 RESERVED 
6 RESERVED 
5 RESERVED 
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4 RESERVED 
3 RESERVED 
2 RESERVED 
1 RESERVED 
0 RESERVED 


WIDTH 
1 Byte/Binary 


Contains the station width as specified in the 
NDL program. 


PAGE 
1 Byte/Binary 


Contains the station page size as specified in the 
NDL program. 


DIGIT COUNT 
4 Bits/Binary 


Contains the number of digits in a given phone 
number. Digit count may range from 0 to 15 and is 
initialized by the NDL compiler. 


PHONE NUMBER 
15 Four-Bit Binary Coded Decimal 
Digits 


Contains the station’s phone number as specified 
in the NDL program. 


EXTENDED TERMINAL TABLE 
LAYOUT 


MCS DATA BITS 
WIDTH PAGE 


CARRIAGE CHARACTER] LINEFEED CHARACTER 
HOME CHARACTER CLEAR CHARACT ER 


MCS DATA BITS 
2 Bytes 


Contains information specified in the NDL pro- 
gram for this station which may be of interest to the 
MCS. 


15S RESERVED 

14 RESERVED 

13 WRAPAROUND 
12 SCREEN 

11 BLOCKED 

10 TRANSPARENT CAPABLE 
9 RESERVED 

8 RESERVED 

7 RESERVED 

6 RESERVED 

5 RESERVED 

4 RESERVED 

3 RESERVED 

2 RESERVED 

1 RESERVED 

0 RESERVED 


WIDTH 
1 Byte/Binary 


Contains the value specified in the NDL program 
as the terminal’s width. 


PAGE 
1 BYTE/BINARY 


Contains the value specified in the NDL program 
as the terminal’s page size. 


CARRIAGE CHARACTER 
1 Byte/ASCII 


Contains the ASCII value of the carriage character 
specified in the NDL program. 


LINEFEED CHARACTER 
1 Byte/ASCIl 


Contains the ASCII value of the linefeed character 
specified in the NDL program. 


HOME CHARACTER 


1 Byte/ASCII 


Contains the ASCII value of the home character 
specified in the NDL program. 


CLEAR CHARACTER 
1 Byte/ASCIl 


Contains the ASCII value of the clear character 
specified in the NDL Program. 


SECTION 5 
MESSAGE HEADER 


INTRODUCTION 


This section covers the format and use of the mes- 
sage header. The message header is a means of com- 
municating status and events between the MCS and 
the NDL program. 


The layout of the message header below shows 
two characters per line. The header that the MCS 
sees (the one sent by the MCS and the one received 
by the MCS) is only 35 bytes in length. The first five 
bytes are never used or seen by the MCS. 


MESSAGE HEADER LAYOUT 


MESSAGE LINK * | 


BUFFER LINK * 
PROCESSOR LINE 


RESULT TYPE 
TASK MCS FLAG 
STATION 


OPTIONS EVENTS 


EVENTS 


RESERVED SUBNET QUEUE 


TEXT LENGTH 


MESSAGE LENGTH 


RETRY 


RESERVED TRANSMISSION NUMBER 


TIME SECONDS 


SKIPCONTROL 


DATE (YEAR) 


| DATE (DAY) 
TIME (MINUTES) 


MCS DATA 


* The size of this field is implementation-dependent. 


MESSAGE HEADER 


The message header is always the first 40 bytes of 
the first buffer associated with each message. All 
messages contain all of the message header fields de- 
scribed. However, not all fields are meaningful for 
all messages. Furthermore, not all fields are read/ 
write accessible by the user, any such field is 
marked as being either NOT ACCESSIBLE BY 
USER or READ ONLY BY THE USER. All other 
fields are read/write. 


Message Link 


Not accessible to the user. 


Contains the absolute address of the next message 
in this queue, or zero if this is the last message in 
the queue. 


Buffer Link 


Not accessible to the user. 

Contains the absolute address of the next buffer 
used for this message, or zero if this is the only buf- 
fer used for this message. 

Processor 
1 Byte/Binary 


Not accessible to the user. 

Contains the data communications processor num- 
ber associated with this message. 
Line 
1 Byte/Binary 

Contains the logical line number associated with 
this message. 
Result 


1 Byte/Binary 


Contains an index value indicating any special 
conditions associated with this message. The defined 
values for result are: 


0 - complete and successful 

1 - line not ready 

2 - station not ready 

3 - control or WRU flag set 

4 - recalled from station 

5 - recalled from subnet queue 
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6 - station not attached 

7 - unable to initiate 

8 - invalid network request 

9 - DC hardware error 

10 - DIALIN received 

11 - recalled from output save queue 


Type 
1 Byte/Binary 


Contains a value indicating the message type as 
follows: 
0 - Maintenance 
1 - Input 
2 - Output 
3 - Priority output 
4 - Enable input 
5 - Disable input 
6 - Make station ready 
7 - Make station not-ready 
8 - Make line ready 
9 - Make line not-ready 
10 - Dialout 
11 - Immediate line not-ready 
12 - Recover* 
13 - Deallocate* 
14 - Dialin 
15 - SPO input 
16 - End recall from queue 
17 - End recall from station 
18 - Attach queue 
19 - Attach station 
20 - Enable queue 
21 - Enable station 
22 - Disable queue 
23 - Disable station 
24 - send 
Task detach 
Line Marker * 
27 - Deallocate Space * 
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*Implementation dependent 


Task 
1 Byte/Binary 


Contains the number of the task in which the mes- 
sage originated, valid values for user tasks range 
from 1 through 9. 


MCS Flag 


1 Byte 

Indicates by the setting of the least significant bit 
that the MCS is to be notified of the results of this 
output message: 


1. Only if errors occur (bit = 0). 
2. Whether or not errors occur (bit = 1). 
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Station 


2 Bytes/Binary 


Contains the logical station number associated 
with this message. 


Options 
1 Byte 


Contains the eight, one-bit flags listed here, which 
are available for use by the NDL program and the 
DC firmware. 


7 - LINEFEED 

Output a linefeed character 
6 - CARRIAGE 

Output a carriage return character 
5 - PAPERMOTION 

Move paper before printing 


4 - PAGE 
Advance page 
3 - SKIP 


Skip to channel 
2 - TRANSPARENT 
Message contains transparent text characters 
1 - BLOCK 
One block (but not the last) of a multi-block 
message 
0 - SPACE 
Advance line(s) 


These flags are intended to be used in forms con- 
trol; however, their actual meaning, if any, is deter- 
mined by the NDL programmer. 


Events 


3 Bytes 


Contains 24 one-bit flags listed below, which are 
set by the data communications subsystem to indi- 
cate conditions which occurred on the line while 
processing this message. 


23 - NAK RECEIVED 

22 - NAK ON SELECT 

21 - NO SPACE 

20 - TERMINATE ERROR 

19 - DISCONNECT 

18 - TERMINATE NO LABEL 

17 - ADAPTER FAULT 

16 - MODEM NOT READY 

15 - CONTROL CHARACTER RECEIVED 
14 - WRU CHARACTER RECEIVED 

13 - TRANSMISSION NUMBER ERROR 
12 - MESSAGE LENGTH EXCEEDED 


11 - EVENT 1 

10 - FORMAT ERROR 

9 - BCC ERROR 

8 - ADDRESS ERROR 

7 - SYNCHRONOUS TRANSMISSION UNDERFLOW 
6 - BREAK ON TRANSMIT 

5 - LOSS OF CARRIER 

4 - CHARACTER PARITY ERROR/INVALID FRAME 
3 - BREAK ON RECEIVE/IDLE 

2 - BYTE OVERFLOW-SERVICED TOO LATE 

1 - STOP BIT ERROR/ABORT 

0 - TIMEOUT 


If one or more of the following flags is set, the line 
associated with this message is implicitly made not- 


ready and the appropriate value placed into the re- 
sult field: 


DISCONNECT 
ADAPTER FAULT 
MODEM NOT READY 


If one or both of the following flags has been set, 
the station associated with this message has been im- 
plicitly made not-ready and the appropriate value 
has been placed into the result field: 


TERMINATE ERROR 
TERMINATE NO LABEL 


Events during DIALOUT 


Contains eight, one-bit flags, listed below, which 
are set by the data communications subsystem to in- 
dicate conditions occurring on the line while pro- 
cessing a dialout message. 


23 - RESERVED 
22 - RESERVED 
21 - INVALID OR NO ANSWERTONE AFTER 
PULSE DIALING (NON-ACU MODEM) 
20 - PREMATURE CONNECTION (U.K. 
ONLY) 
19- ACR BUT NO DSS AFTER ACU-DIALOUT 
18 - FIRST PND WAS SENSED. BUT SUBSE- 
QUENT PNDS WERE NOT 
17- ACR WITHOUT FIRST PND OR RING AF- 
TER DTR/CRQ IS RAISED 
16 - PWI WAS RESET OR DLO WAS SET, AT 
START OF ACU-DIALOUT 


Subnet Queue 


1 Byte/Binary 


Contains the subnet queue number associated with 
this message. 


Text Length 
2 Bytes/Binary 


Contains the number of text characters present in 
this message. 


Message Length 
2 Bytes/Binary 


Read only by the user and contains the total num- 
ber of bytes of space available for text in this mes- 


sage. Its value is always greater than, or equal to, 
the value of text length. 


Skip Control 
1 Byte/Binary 


This contains a value to be used in connection 
with the options field. (For example, it may contain 
the number of lines that are to be skipped.) 


Like options, the actual meaning of skip control is 
determined by the NDL programmer. 


Retry 
1 Byte/Binary 


Contains the NDL retry count associated with this 
message. The maximum value the user may assign to 


retry is 254. The value 255 is reserved for system 
use. 


Transmission Number 


3 Bytes/ASCll 


Contains three ASCII characters indicating the 
transmission number (000 through 999) received with 
this input message. 


Tallies 


3 Bytes 


Three separate eight-bit binary fields, with use and 
meaning determined by the NDL programmer in 
cooperation with the user. 
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Toggles 
1 Byte 


Eight one-bit flags, with use and meaning deter- 
mined by the NDL programmer in cooperation with 
the user. 


Date 
3 Bytes 


Contains the data relevant for this message. It is 
given as six binary coded decimal digits in the form 
YYMMDD (Year, month, day). 


For input messages, this field is filled by the DC 
firmware when the message is received. 


For output messages, it is the user’s responsibility 
to fill this field if it is so desired. 


Time 
3 Bytes 


Contains the time of day relevant for this message. 
It is given as six binary coded decimal digits in the 
form HHMMSS (hours, minutes, seconds). 


For input messages, this field is filled by the DC 
firmware when the message is received. 


For output messages, it is the user’s responsibility 
to fill this field if it is so desired. 


MCS Data 
2 Bytes/Binary 


This field is provided for the use and convenience 
of the MCS only. It is initialized to zeroes on incom- 


ing messages by the DC firmware and is unaltered at 
all other times. 


VALID MESSAGE HEADER FIELDS 


Message header field information is given in fig- 
ures 5-1 and 5-2. 


DATA COMMUNICATIONS 
MESSAGE TYPES 


Directive Type Messages 


INPUT/OUTPUT 


These messages are queued to the bottom of the 
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station queue which belongs to the station refer- 
enced in the message header. Input messages are 
only queued to half-duplex stations defined as 
MYUSE-INPUT. Output messages are only queued 
to stations defined as MYUSE-OUTPUT. A rejected 
input/output message is returned to the MCS with 
result equal to ‘‘unable to initiate’’. 


If a message is queued, the station is marked 
queued. If the station is ready and the line is ready, 
the line is marked queued. (See also Priority-Output, 
Enable-Input, Disable-Input, and Make-Station- 
Ready.) 


If the station is ready and the line is ready, con- 
nected, and not busy (primary), line-control is initi- 
ated. 


PRIORITY-OUTPUT 


This message is treated just like a standard output 
message, except that it is queued to the top of the 
station queue. 


Priority-output messages are used in error han- 
dling. If an unrecovered or unrecoverable error oc- 
curs while the line is engaged in a write request for 
some station, the error is reported in the header of 
the output (or priority-output) message when it is re- 
turned to the MCS. The line or station is also made 
not-ready, whichever is appropriate. In order to 
reinitiate the output in its proper sequence before 
other output in the station queue, the MCS may re- 
submit the message in error as PRIORITY-OUTPUT 
before making ready the line or station. 


ENABLE-INPUT/DISABLE-INPUT 


The messages are queued to the bottom of the sta- 
tion queue which belongs to the station referenced in 
the message header. ENABLE-INPUT messages are 
only queued to stations defined as MYUSE-INPUT. 
Otherwise, they are returned to the MCS with result 
equal to Unable To Initiate. 


If a message is queued, the station is marked 
queued. If the station is ready and the line is ready, 
the line is also marked queued. If the station is 
ready and the line is also ready, connected, and not 
busy (primary), line control is initiated. | 


Like input and output messages, ENABLE-IN- 
PUT/DISABLE-INPUT is processed by the initiate- 
request statement in line control. At that time, the 
Station is enabled/disabled and the message is re- 
turned to the MCS with result equal to Complete 
and Successful. 


Messages Initiated by the MCS 
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Must be supplied by the user. 


LEGEND: * 


May be supplied by the user (if required by NDL). 
May be supplied by the user (if he wishes). 


Supplied by the DC subsystem. 


Blank = Don't care. 
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Figure 5-1. Messages Initiated by the MCS 
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Messages Found in the MCS Queue 
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LEGEND: * = Contains valid information. 
X = May contain valid information (if it was supplied by NDL). 
U = May contain valid information (if it was supplied by the user). 
S = Supplied by the DC subsystem. 
Blank = Don't care. 


Figure 5-2. Messages Found in the MCS Queue 


The ENABLE flag for each station, maintained by 
the Enable/Disable messages, controls the NDL en- 
able-input feature. While the ENABLE flag is on, 
read request logic can be entered by an Initiate-En- 
able-Input statement in line-control or by a Termin- 
ate-Enable-Input statement in a write request. 


MAKE-STATION-READY 


The station referenced in the message is made 
ready, and the message is returned to the MCS with 
result equal to Complete and Successful. 


If the referenced station is actively associated with 
a read/write request, the line/primary may have the 
STATION-NOT-READY-PENDING flag set from a 
previous Make-Station-Not-Ready message for that 
same station. If so, the PENDING flag is reset and 
the Make-Station-Not-Ready message is thereby 
countermanded, never to be returned to the MCS. 
Note, however, that the message space of the pend- 
ing message has already been returned to the avail- 
able buffer pool. (See Make-Station-Not-Ready.) 


If the line is ready, the line is marked queued. If 
the line is ready, connected, and not busy (primary), 
line-control is initiated. 


MAKE-STATION-NOT-READY 


The station referenced in the message header may 
or may not be made not-ready immediately, depend- 
ing on whether the station is actively associated with 
a read/write request. That is, the station remains 
ready if: 


1. It is currently referenced by the line/primary 
station variable, 

2. The line is busy, and 

3. The line/primary is executing S-code in a re- 
quest set. 


If the station is active, the line/primary STATION- 
NOT-READY-PENDING flag is set. The message is 
passed to the available buffer pool with type equal 
to Discard. Later, when pending states are resolved, 
(when line busy is reset or during the execution of 
certain Terminate S-OPs), message space is allocated 
with a header filled with line number, station num- 
ber, and type equal to MAKE-STATION-NOT- 
READY. Logic then proceeds as follows. 


If the station is immediately made not-ready or if 
the STATION-NOT-READY-PENDING state is be- 
ing resolved, the Make-Station-Not-Ready message 
is returned to the MCS with result equal to STA- 
TION-NOT-READY. The station is marked not 
ready, (primary) and line control is initiated: 


1. I the line/primary station is executing S-code in | 
a request set, and 
2. If line busy is reset. 


Any message space held by the line/primary is 
then queued to the top of the station queue of 
the line/primary station. If the auxiliary side of a 
full-duplex line is executing S-code in a request set 
for that station, AUX space is returned to the avail- 
able buffer pool and AUX line-control is initiated. 


MAKE-LINE-READY 


If the line is switched-busy, the message is re- 
turned to the MCS with result equal to UNABLE 
TO INITIATE. Otherwise, the message is returned 
to the MCS with result equal to COMPLETE AND 
SUCCESSFUL. 


If the line is already ready and not-busy, the line 
is not affected. If the line is ready and busy, the 
line’s NOT-READY-PENDING flag is reset, thereby 
countermanding a previous Make-Line-Not-Ready 
message for that line. (The countermanded MAKE- 
LINE-READY may or may not be returned to the 
MCS, depending on system implementation.) 


If the line is connected and not-ready, the line is 
made ready and (primary) line-control is initiated. 


If not connected and not-ready, DIALIN logic is 
initiated as follows. 


The line is made ready. While the line is awaiting 
an incoming call, it is kept not-switched-busy to al- 
low interruption by a Dialout, Make-Line-Not- 
Ready, or Immediate-Line-Not-Ready message. 


The line table resident variables, LINE TOG [0] 
and LINE TOG [1], are reset when a line (which 
was previously not ready) is made ready. 


CALL-RECEIVED 


As soon as DATASET READY (DSR, CC) is true 
and an incoming call is detected, the line is marked 
switched-busy. On successful completion of the call, 
the line is marked connected and not switched-busy. 
Message space is sent to the MCS with a header 
filled with line-number, type equal to DIALIN, and 
result equal to Complete and Successful. 


On an unsuccessful DIALIN (when a LOSS OF 
CARRIER EQUAL TO DISCONNECT line fails to 
detect carrier), message space is allocated with a 
header filled with line-number and type equal to 
DIALIN. Disconnect logic is then invoked (see 


-LINE-ABORT). 
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MAKE-LINE-NOT-READY 


If the line is switched-busy, the Make-Line-Not- 
Ready message is returned to the MCS with result 
equal to UNABLE TO INITIATE. 


If the line is ready and busy, the line’s NOT- 
READY-PENDING flag is set, and the message is 
returned to the available buffer pool with type equal 
to DISCARD. Later, when pending states are re- 
solved (see also Make-Station-Not-Ready), message 
space is allocated with a header filled with line-num- 
ber and type equal to MAKE-LINE-NOT-READY. 
Logic then proceeds. 


If the line is immediately made not-ready or if the 
LINE-NOT-READY-PENDING sstate is being re- 
solved, the Make-Line-Not-Ready message is re- 
turned to the MCS with result equal to Line-Not- 
Ready. 


If the line/primary was executing S-code in a re- 
quest set and therefore has message space, that mes- 
Sage Space is queued to the top of the station-queue 
of the line/primary’s station. Message space held by 
the auxiliary side of a full-duplex line is returned to 
the available buffer pool with type equal to DIS- 
CARD. The auxiliary is then idled. The line is then 
made not-ready. 


DIALOUT 
For DIALOUT, the line must be: 


. Dialout capable, 
. Not busy, 

. Not switch-busy, 
. Not connected. 


& WN 


If these criteria are not met, the message is re- 
turned with result equal to Unable To Initiate. 


The line is made ready (if not already), and made 
switched-busy for the duration of the DIALOUT. 
DATASET READY (DSR,CC) is checked to see if 
the line has physically accepted an incoming call due 
to a previous Make-Line-Ready message. If the line 
is DATASET-READY, the dialout message is re- 
turned with result equal to DIALIN-RECEIVED. 
Logic then proceeds to CALL-RECEIVED. (See 
Make-Line-Ready.) 


If an incoming call is not detected, the line goes 
off-hook and appropriate dialout logic is selected, 
depending on whether the line has an automatic call- 
ing unit (ACU) or a modem with dialout capability. 
The phone number to be dialed is contained in the 
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text of the message. The number of digits to dial is 
indicated by the first four-bit, binary digit of the 
text. If the operator is dialing to a BPO Telex sta- 
tion, the last digit of the phone number must be a 
Cc. 


If the call is successfully completed and answered, 
the dialout message is returned to the MCS with re- 
sult equal to Complete and Successful. The line is 
marked connected and (primary) line-control is initi- 
ated. 


Unsuccessful Dialout 


If the call was either not completed or not correct- 
ly answered, disconnect logic is invoked (see Line- 
Abort). 


Call Collision with BPO Telex 


The dialout message is returned with result equal 
to DIALIN-RECEIVED. Logic then proceeds to 
CALL-RECEIVED. (Refer to Make-Line-Ready.) 


IMMEDIATE-LINE-NOT-READY 
(SWITCHED DISCONNECT) 


If the line is switched-busy, the IMMEDIATE- 
LINE-NOT-READY message is returned to the 
MCS with result equal to Unable to Initiate. 


If the line/primary was interrupted while executing 
S-code in a request set and therefore has message 
Space, the space is queued to the top of the station 
queue. For the auxiliary side of a full-duplex pair, 
the space is returned to the available buffer pool and 
the auxiliary is idled. 


LINE-ABORT 


If the line/primary was executing S-code in a re- 
quest set and therefore has message space, that mes- 
sage space is queued to the top of the station-queue. 
Message space held by the auxiliary side of a full- 
duplex line is returned to the available buffer pool 
with type equal to DISCARD. The auxiliary is idled. 


If the line is switched, the line is physically dis- 
connected. The line is made ready and switched- 
busy until DATASET-NOT-READY has been 
achieved. 


Whether the line is switched or leased, it now be- 
comes not-ready. The IMMEDIATE-LINE-NOT- 
READY (or DIALIN, or DIALOUT) message is re- 
turned to the MCS with result equal to Line-Not- 
Ready. 


RECOVER/DEALLOCATE 


For the station referenced in the message header, 
the head/tail pointers of the station queue are copied 
into the message-header and then are cleared in the 
station table. Station-queue is reset. The recover/ 
deallocate message is returned to the data communi- 
cations controller, which discards each formerly 
queued message (for deallocate) or forwards each 
message to the MCS (for recover). Recover/deallo- 
cate misses any space not on the station queue. 
Should the station be executing S-OPS of a request 
set when the recover/deallocate is received, the 
space used by the request set is missed. To coun- 
teract this situation, the station should first be made 
not-ready. 


Messages types RECOVER and DEALLOCATE 
are not seen by the user but are used within the data 
communications subsystem as a result of the RE- 
CALL/CLEAR communicate. 


The text of the message contains data entered by 
the operator and directed to the MCS. 


End Recall From Queue 


Having recalled all input (from the subnet queue), 
a message of type END RECALL FROM QUEUE is 
placed on the MCS queue with result equal to COMPLETE 
AND SUCCESSFUL. 


End Recall From Station 

Having recalled all output (from the station queue), 
a message type END RECALL FROM STATION is 
placed on the MCS queue with result equal to COMPLETE 
AND SUCCESSFUL. 


Maintenance 
When a data communication hardware error oc- 


curs, the CMS subsystem generates a maintenance 
message and forwards it to the MCS. 
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SECTION 6 
NDL PROGRAM FILE 


GENERAL 


This section outlines and describes the NDL ob- 
ject code file used by the system. This is only a de- 
scription of the NDL object file. For a description of 
the NDL source, refer to the CMS NDL Reference 
Manual, form 10909235. 


This section of the document describes the disk 
format of the NDL program file. Descriptions and 
initial values of individual fields are given where ap- 


propriate. 


NDL PROGRAM PARAMETER 


BLOCK 
Bytes Use 

Byte 0 (Implementation Level number) - Binary 00 

Bytes 1-12 (Program Name) - NDLSYS 

Bytes 13-24 (S-Language Name) - NDL S-LANG 

Bytes 25-31 (Interpreter Pack-Id) - 0000000 

Bytes 32-43 (Interpreter Name) - NDL.INTERP 

Bytes 44-55 (Compiler Name) - NDL COMPILER 

Bytes 56-61 (Compiler Date) - YYMMDD 

Bytes 62-63 (Priority Class) - Binary 3180 

Byte 64 (Data Segment For Initiating Message) - 
Binary FF 

Bytes 65-67 (S-Program Start Address) - Binary 000000 

Bytes 68-69 (Program Segment Table Length) - Binary 
0030 

Bytes 70-71 (PST Location) - Binary 0002 

Bytes 72-73 (Data Segment Table Length) - Binary 0066 

Bytes 74-75 (DST Location) - Binary 0003 

Bytes 76-77 (TCB Present Area Length) - Binary 0000 

Bytes 78-79 (TCB Preset Area Address) - Binary 0000 

Bytes 80-81. (Stack Length) - Binary 0000 

Bytes 82-83 (CCB Preset Area Length) Binary 0000 

Bytes 84-85 (CCB Preset Area Address) - Binary 0000 

Bytes 86-87 (TCB Preset Extension Length) - Binary 
0000 

Bytes 88-89 (Internal File Name Block Length) - Binary 
0000 

Bytes 90-91 


Bytes 92-179 


(Internal File Name Block Address)- Binary 
0000 


(TCB Preset Area Values) - All binary 
zeros 


NDL PROGRAM SEGMENT TABLE 


This segment contains descriptors pointing to the 
various program segments. Each descriptor is six 
bytes long and is structured as follows: 


Bytes 0 and 1 


Binary 0 (Indicating an ordinary, 
overlayable, read-only code segment) 


Bytes 2 and 3 Relative disk address of the program 
segment 


Bytes 4 and 5 Length in bytes of the program segment 


The descriptors are arranged within the segment as 
follows: 7 


Descriptor 0 
Descriptor 1 
Descriptor 2 
Descriptor 3 
Descriptor 4 
Descriptor 5 
Descriptor 6 
Descriptor 7 


Control Sets, Format A 
Control Displacements, Format A 
Request Sets, Format A 
Request Displacements, Format A 
Control Sets, Format B 
Control Displacements, Format B 
Request Sets, Format B 
Request Displacements, Format B 


NDL PROGRAM SEGMENT 
DESCRIPTIONS 


Control Sets - Format A 


This segment has all of the S-code resulting from 
control sets referenced in the NDL program. The 
control sets are arranged within the segment by 
logical-control-set number. 


Logical-control-sets numbers are assigned in the 
order in which the control sets are referenced in the 
NDL program. Note that each pair of S-code data 
bytes is followed by a pair of bytes having the bi- 
nary value 8000 if the data is a relative address, and 
the value 0000 otherwise. The 8000/0000 byte pair 
occupies disk space but not memory space. 


Relative addresses are relative to the base of the 
(control sets-format A) segment, and are specified in 
terms of byte displacement divided by 4. 


Control Displacements - Format A 


Bytes 0 and 1 contain the number of control sets 
referenced in the NDL program. 


Bytes 2 and 3 contain the relative address of 
logical-control-set 0. 


Bytes 4 and 5 contain the relative address of 
logical-control-set 1; and so on. 


Request Sets - Format A 


The segment contains all of the S-code resulting 
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from request sets referenced in the NDL program. 
The request sets are arranged within the segment by 
logical-request-set number. 


Logical-request-set numbers are assigned in the 
order in which the request sets are referenced in the 
NDL program. 


Note that each pair of S-code data bytes is fol- 
lowed by a pair of bytes having the binary value 
8000 if the data is a relative address, and the value 
0000 otherwise. The 8000/0000 byte pair occupies 
disk space but not memory space. 


Relative addresses are relative to the base of the 
(request sets-format A) segment, and are specified in 
terms of byte displacement divided by 4. 


Request Displacements - Format 
A 


Bytes 0 and 1 contain the number of request sets 
referenced in the NDL program. 


Bytes 2 and 3 contain the relative address of 
logical-request-set 0. 


Bytes 4 and 5 contain the relative address of 
logical-request-set 1, and so on. 


Control Sets - Format B 


This segment contains all of the S-code resulting 
from control sets referenced in the NDL program. 
The control sets are arranged within the segment by 
logical-control-set number. 


Logical-control-set numbers are assigned in the or- 
der in which the control sets are referenced in the 
NDL program. 


Relative addresses are specified in terms of byte 
displacement from the base of the (control sets - 
format B) segment. 


Control Displacements - Format B 


Bytes 0 and 1 contain the number of control sets 
referenced in the NDL program. 


Then bytes 2 and 3 contain the relative address of 
logical-control-set 0; bytes 4 and 5 contain the 
relative address of logical-control-set 1; and so on. 


Request Sets - Format B 
The segment contains all of the S-code resulting 
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from request sets referenced in the NDL program. 
The request sets are arranged within the segment by 
logical-request-set number. 


Logical-request-set numbers are assigned in the 
order in which the request sets are referenced in the 
NDL program. 


Relative address is specified in terms of byte dis- 
placement from the base of the (request sets - format 
B) segment. 


Request Displacements - Format 
B 


Bytes 0 and 1 contain the number of request sets 
referenced in the NDL program. 


Then bytes 2 and 3 contain the relative address of 
logical-request-set 0; bytes 4 and 5S contain the 
relative address of logical-request-set 1, and so on. 


NDL DATA SEGMENT TABLE 


This segment contains descriptors pointing to the 
various data segments. Each descriptor is six bytes 
long and is structured as follows: 


Bytes 0 and 1 - Binary 0 (indicating an ordinary, 
overlayable, read-only data segment) 


Bytes 2 and 3 - Relative disk address of the data 
segment 


Bytes 4 and 5 - Length in bytes of the data seg- 
ment. 


The descriptors are arranged within the segment 
as follows: 


Descriptor Meaning 
Descriptor 0 Preset Data 
Descriptor 1 Line Tables 
Descriptor 2 Line Table Displacement List 
Descriptor 3 Station Tables 
Descriptor 4 Station Table Displacement List 
Descriptor 5 Modem Tables 


Descriptor 6 
Descriptor 7 
Descriptor 8 
Descriptor 9 


Descriptor 10 — 


Descriptor 11 
Descriptor 12 
Descriptor 13 
Descriptor 14 
Descriptor 15 
Descriptor 16 
Descriptor 17 
Descriptor 18 


Terminal Tables 

File Tables 

Extended Station Tables 
Extended Terminal Tables 
Station Name Table 

File Name Table 

Translation Tables 
Translation Table Displacement List 
Line Priority Chart 

Line Speed Table 
DCP-terminals Format A 
Source Statement Occurrence 
DCP-Terminals Format B 


PRESET DATA 


Bytes 0 and 1 - memory space required - contains 
the amount of space (in bytes) required for run time 
DC memory structures. It is computed as follows: 


MEMORY = 8L + SUM(E) + 29SJ + 40SK + 15T + SF + 
R/4 + C/4 + X/2 + B*YN 
Where: 
L = Number of lines defined in the NDL program 
SUM(E) = Sum, over all lines, of 2 times the Max entries value 
defined for each line 
SJ = Number of stations defined in the NDL program which are 
not of type bits or type tallies 
SK = Number of stations defined as type bits or type tallies in 
the NDL program 
T = Number of terminals defined in the NDL program 
F = Number of files defined in the NDL program 
R = Length in bytes of the (request sets - format A) program seg- 
ment 


C = Length in bytes of the (control sets - format A) program seg- 
ment 


X = Length in bytes of the data segment containing translate ta- 
bles. 


B = DC Buffer size - defined below 
N = Mimimum buffer count - defined below 


Bytes 2 and 3 - DC Buffer Size 


If a buffer value has been specified in the DCP 
section of the NDL program, then DC buffer size 
equals the integer value (buffer + 1)/2. Otherwise, 
the integer value (X + 41)/2 is used, where X equals 
the smallest maximum input size specified in the 
program. 


Bytes 4 and 5 - Minimum Buffer 
Count 


If a buffer value has been specified in the DCP 
section of the NDL program, then minimum buffer 
count equals this value. Otherwise, the following al- 
gorithm is used: 


Let N(X) = Number of buffers needed to hold a 
message for terminal (X). 

Let S = Sum, over all attached stations, of each 
station’s terminal’s N(X) value. 

Let L = Number of defined lines. 

Then minimum buffer count = (2 * S) + L. 


If necessary, the compiler forces this value to be 
equal to, or greater than, 4. 


Bytes 6 and 7 - Station Count 


Contains the number of stations defined in the 
NDL program. 


Byte 8 - File Count 


Contains the number of files defined in the NDL 
program. 


Byte 9 - Line Count 


Contains the number of lines defined in the NDL 
program. 


Byte 10 - Modem Count 


Contains the number of modems defined in the 
NDL program. 


Byte 11 - Terminal Count 


Contains the number of terminals defined in the 
NDL program. 


Bytes 12-13 - Additional Buffer 
Count 


Contains the number of additional buffers allowed 
to the data comm subsystem, over and above the 
minimum buffer count. 


Bytes 42-43 - Reserved for NDL 
Postprocessor 


Byte 44 - DCP Count 


Contains the number of data comm processors de- 
fined in the NDL program. 


Byte 45 - Highest DCP Number 


Byte 46 - Station Table 
Maximum Length 


Byte 47 - Reserved 
Byte 48 - N - DCP Data List 


This bit contains N 18-byte entries; one entry for 
each DCP, from DCP 0 to the highest DCP number 
declared. Entries for undefined DCPs within this 
range are initialized to spaces. 


Each entry consists of the following fields: 
1. DCP MEMORY REQUIREMENT 


Two bytes/binary 
Memory = (SUM(5) * (STL + 4)) + (SLI*L) 
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Where: 
SUM(S) = Sum of the max entries for each 
line on this DCP. | 
STL = Station table length (maximum). 
SLI = Size of a line table with 0 stations. 
L = Number of lines defined, in NDL, for 
this DCP. 


2. DCP MEMORY SIZE 
Two bytes/binary 
Contains the memory size of this DCP as de- 
fined in the DCP(N) memory statement. If no 
DCP memory statement is specified, the NDL 
compiler supplies the value 6,144. If other than 
6,144 is specified, this field is set to all ones. 


3. DCP NUMBER OF LINES 
One byte/binary 
Contains the number of lines on this DCP. 


4. DCP NUMBER OF FULL-DUPLEX LINES 
One byte/binary 
Contains the number of full-duplex lines on the 
DCP. 


5. DCP LOAD FILE NAME 

12 bytes/characters 

Contains the program file name to be loaded 
into the DCP at data comm load time. If no 
DCP TERMINAL statement is specified, either 
NDLDCP or BDLDCP is supplied by the NDL 
compiler: if memory equals 6144, NDLDCP; if 
memory is greater than 6144, BDLDCP. 


LINE TABLES 


This segment contains the line tables generated by 
the compiler on a one-to-one basis with the lines de- 
fined in the NDL program. The tables are arranged 
within the segment by logical line number. 


Logical line numbers are assigned in the order in 
which the lines are defined in the NDL program. 


Line Table Displacement List 


Bytes 0 and 1 contain the number of lines defined 
in the NDL program. 


Bytes 2 and 3 contain a pointer to logical-line-table 
0; bytes 4 and 5 contain a pointer to logical-line-table 
1; and so on. 


Pointers are relative to the line table segment base 
and are specified in terms of byte displacement di- 
vided by 2. 
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STATION TABLES 


This segment contains the station tables generated 
by the compiler on a one-to-one basis with the sta- 
tions defined in the NDL program. The tables are ar- 
ranged within the segment by logical station number. 


Logical station numbers are assigned according to 
the alphabetical order of the programmer specified 
station names. 


Station Table Displacement List 


BYTES 0-1 contain the number of stations de- 
clared in NDL. 


BYTES 2-3 contain a pointer to logical-station-ta- 
ble 0. Each succeeding two-byte field contains a 
pointer to the next logical station table. 


Pointers are relative to the station table segment 
base and are specified in terms of byte displacement 
divided by 2. 


MODEM TABLES 


This segment contains the modem tables generated 
by the compiler on a one-to-one basis with the mo- 
dems defined in the NDL program. The tables are 
arranged within the segment by logical modem num- 
ber. 


NOTE 
Two dummy modem tables for direct- 
connect are automatically generated by 
the compiler to aid in the reconfigura- 
tion process. 


Logical modem numbers are assigned in the order 
in which the modems are defined in the NDL pro- 
gram. 


TERMINAL TABLES 


This segment contains the terminal tables generat- 
ed by the compiler on a one-to-one basis with the 
terminals defined in the NDL program. The tables 
are arranged within the segment by logical terminal 
number. 


Logical terminal numbers are assigned in the order 


in which the terminals are defined in the NDL pro- 
gram. 


FILE TABLE 


This segment contains a table generated by the 


compiler comprised of intormation on the files de- 
fined in the NDL program. 


Logical file numbers are assigned according to the 
alphabetical order of the programmer-~specified file 
names. 


EXTENDED STATION TABLES 


This segment contains the extended station tables 
which are generated and arranged exactly like the 
station tables. 


EXTENDED TERMINAL TABLES 


This segment contains the extended terminal ta- 
bles which are generated and arranged exactly like 
the terminal tables. 


STATION NAME TABLE 


This segment contains a table of the programmer- 
specified station names. The names are arranged al- 
phabetically within the table, and each entry is 12 
bytes long, space filled on the right, if necessary. 


FILE NAME TABLE 


This segment contains a table of the programmer- 
specified file names. The names are arranged alpha- 
betically within the table, and each entry is 12 bytes 
long, space filled on the right, if necessary. 


TRANSLATION TABLES 


This segment contains the translation tables refer- 
enced and/or defined in the NDL program. The ta- 
bles are arranged within the segment by logical- 
translation-table number. 


Logical-translation tables are referenced in the 
NDL program. 


TRANSLATION TABLE 
DISPLACEMENT LIST 

Bytes 0 and 1 contain the number of translation ta- 
bles referenced in the NDL program. 


Bytes 2 and 3 contain a pointer to logical-transla- 
tion-table 0; bytes 4 and 5 contain a pointer to 
logical-translation-table 1; and so on. 


Pointers are relative to the translation table seg- 
ment base, and are specified in terms of byte dis- 
placement divided by 2. 


LINE PRIORITY CHART 


This segment contains the table of constants given 


in tables 6-1 and 6-2. Each entry in the table is one 
byte long. The left digit contains a line speed code, 
and the right digit contains a line priority code. 


It is intended that this chart be used at 


reconfiguration time to assign proper priority to the 
line being redefined. 


LINE SPEED TABLE 


This segment contains a table of logical line num- 
bers arranged by line speed, the higher speed lines 
appearing first. Each entry is one byte long. 


DCP TERMINALS FORMAT A 


This segment contains the program file names and 
associated terminal lists for each of two DCPs (DCP 
0 and DCP 1). CMS systems with more than two 
DCPs reference the segment for DCP Terminals For- 
mat B. 

Byte 0 - The number of program files defined for 
DCP 0. 


Byte 1 - The number of program files defined for 
DCP 1. 


If either field is zero, there are no program file 
lists and no program terminals lists for that 
particular DCP. 

Bytes 2-N - DCP 0 program file list 

DCP 1 program file list 
DCP 0 program terminals lists 
DCP 1 program terminals lists 


PROGRAM FILE LIST 


NAME 
NAME 
NAME 
NAME 


NAME 
NAME 
NAME 
NAME 
NAME NAME 
NAME NAME 
NUMBER OF TERMINALS 
TERMINALS LIST POINTER 


. 


NAME 
NAME , 
NAME 
NAME 
NAME NAME 
NAME NAME 
NUMBER OF _ TERMINALS 
TERMINALS LIST POINTER | 


NAME 
NAME 
NAME 
NAME 
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Table 6-1. Asynchronous Line Priority Chart 


ASYNCHRONOUS BITS PER CHARACTER MILLISECONDS PER 


SPEED INCLUDING STOPBITS 

50 11/10 
9/8 
7/- 

75 11/10 
9/8 
7/- 

100 11/10 
9/8 
7/- 

110 11/10 
9/8 
7/- 

150 11/10 
9/8 
7/- 

200 11/10 
9/8 
7/- 

300 11/10 
9/8 
7/- 

600 11/10 
9/8 
7/- 

1200 11/10 
9/8 
7/- 

1800 11/10 
9/8 
7/- 

2400 11/10 
9/8 
7/- 

4800 11/10 
9/8 
7/- 

9600 11/10 
9/8 
7/- 

19200 11/10 
9/8 
| 7/- 

38400 11/10 
9/8 


TABLE VALUE 


CHARACTER 

-- 00/00 
—160.00 00/20 
140.00/- 20/00 
146.67/133.33 10/10 
120.00/106.67 10/10 
93 .33/- 11/00 
110.00/100.00 20/20 
90.00/80.00 21/21 
70.00/— 22/00 
100.00/90.91 30/31 
81.82/72.73 31/32 
63.64/— 32/00 
73.33/66.67 42/42 
60.00/53.33 43/43 
46.47/- 43/00 
55.00/50.00 53/53 
45.00/40.00 54/54 
35.00/- 54/00 
36.67/33.33 64/64 
30.00/26.67 65/65 
23.33/- 65/00 
18.33/16.67 75/75 
15.00/13.33 76/76 
11.67/- 76/00 
9.17/8.33 86/86 
7.50/6.67 87/87 
5.83/ 87/00 
6.11/5.56 97/97 
5.00/ 4.44 98/98 
3.89/ - 99/00 
4.58/ 4.17 A8/A8 
3.75/ 3.33 A9/A9 
2.92/ — AA/00 
2.29/ 2.08 BA/BA 
1.87/ 1.67 BB/BB 
1.46/ - BB/00 
1.15/ 1.04 CC/CC 
.94/ 83 CD/CD 
.73/ - CD/00 
St aoe DE/DE 
47/42 DE/DE 
.36/  - DE/00 
.29/  .26 EF/EF 
.23/  .21 EF/EF 


: = 5: EF/00 


NAME: 12 bytes 
DCP program file name. 

NUMBER OF TERMINALS: two bytes 
The number of terminals declared to be associ- 
ated with the program file. 

TERMINALS LIST POINTER: two bytes 
Self-relative index to list of the terminals associ- 
ated with the program file. 


PROGRAM TERMINALS LIST 


LOGICAL TERMINAL NUMBER: two bytes 
This list contains the logical numbers for the ter- 
minals which were declared in NDL for the pro- 
gram file which points to this list. There are as 
many of these lists for a DCP as there are pro- 
gram files declared for that DCP. 
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LOGICAL TERMINAL NUMBER 
LOGICAL TERMINAL NUMBER 


| LOGICAL TERMINAL NUMBER 


SOURCE STATEMENT 
OCCURRENCE 


This segment within the NDLSYS file is generated 
by the NDL compiler to inform the post-processor 
program (non-interpretive program file generator) of 


Table 6-2. Synchronous Line Priority Chart 


SYNCHRONOUS BITS PER CHARACTER MILLISECONDS PER TABLE VALUE 

SPEED CHARACTER 

600 —8 —13.34 00/06 

7/6 11.66/10.00. 06/06 

5/- 8.34/- 06/00 

1200 —8 —6.67 00/07 

7/6 5.83/5.00 07/08 

5/- 4.17/- 08/00 

2000 —8 —4.00 00/08 

7/6 3.50/3.00 09/09 

S/- 2.50/— 0A/00 

2400 -8 —3 33 00/09 

7/6 2.92/2.50 OA/OA 

5/- 2.08/— 0A/00 

3600 -8 —2.22 00/0A 

7/6 1.94/1.67 0B/0B 

S/- 1.39/- 0B/00 

4800 -8 —1.67 00/0B 

7/6 1.46/1.25 0B/OC 

5/- 1.04/- 0C/00 

7200 -8 —1.11 00/0C 

7/6 .97/.83 0C/OD 

5/- .69/— 0D/00 

9600 8 83 00/0D 

7/6 .73/.63 0D/OD 

5/~ 52/— 0E/00 

the occurrence of certain source statements within The flags represent the occurrence of the following 
the NDL program. S-Ops. the flags are numbered right to left, flag 15 


being the left-most bit position. 
TRUE/FALSE 


Egg SE Rg EET | 
\POINTER TO 1ST : 
ST REQUEST SET INFORMATION ec pRemRy 

CONTROL SET INFORMATION 14 - LINE BUSY TOGGLE 
| CONTROL SET INFORMATION | 13 - AUX LINE BUSY = TRUE/FALSE 
12 - AUX LINE BUSY = TOGGLE 
11 - BINARY = TRUE/FALSE 
10 - TERMINATE BLOCK 
CONTROL SET INFORMATION | 9 - SYNCS = TRUE/FALSE 


- CRC = TRUE/FALSE 
| SC REQUEST SET INFORMATION _ SHIFT = UP/DOWN/MIDDLE 
| REQUEST SET INFORMATION 


| - STATION = LIT/VARIABLE 
| - USE OF LCHAR 
| REQUEST SET INFORMATION 


RECEIVE WAIT 
CONTROL/REQUEST set information: two bytes 


| 
| 


RECEIVE TEXT 
- BACKSPACE 

- UNUSED 
UNUSED 


Ore nNwhMNA ~1 CO 
' 


There are as many information items as there are 
control and request sets in the NDL program. The 


Each two-byte entry is considered as a set of 16 items are in the order of the logical numbers as- 
(1-bit) flags, each indicating the presence/absence of signed to the control sets and request sets by the 
a particular S-Op within the control/request set. NDL compiler. 
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DCP TERMINALS FORMAT B 


This request contains information concerning DCP 
program files and their associated terminals. 


BYTE 0 - DCP COUNT 
Contains the number of DCPs defined in NDL. 


Byte 1-N - DCP data directory 
DCP data 


Program terminal lists 


DCP Data Directory 


Contains T two-byte entries where T is the total 
number of DCPs from DCP 0 to the highest DCP 
numbers declared. Each two-byte entry is a segment 
base relative pointer to the appropriate DCP data 
structure. If a DCP is not required by the NDL file, 
the directory entry is set to all ones. 


DCP Data 


One for each DCP specified. This consists of a 
one-byte program file count followed by a series of 
15-byte entries as follows. 
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NAME 


| SNAME__ 
NAME CNAME 


AME NAME 
ame ee NAM 
| SNAME _|_ NAM 

MINA eon 


SR MINAT 
LIST POINTER 


NAME : 12 Bytes 
Contains the DCP program file name. 

NUMBER OF TERMINALS: One byte 
Contains the number of terminals declared to be 
associated with the program file. 

TERMINAL LIST POINTER: Two bytes 
Contains a segment base relative pointer to the 
terminal list associated with this program file. 


Note 
There is one of the previous entries for 
each DCP program file associated with 
this DCP. 


PROGRAM TERMINAL LISTS 


Following DCP data are the various terminal lists 
associated with the individual DCP program file. 
Each list is an array of two-byte logical terminal 


numbers. 


SECTION 7 


COBOL DATA 
COMMUNICATIONS 


GENERAL 


This section deals with the COBOL constructs for 
data communications and their use. For more de- 
tailed information on the syntax and semantics of 
these communicates, refer to the CMS COBOL i 
erence Manual, form 2007266. 


COBOL COMMUNICATION 
DESCRIPTIONS 


A communication description (CD) serves to spec- 
ify the interface area between the system, the MCS 
and a COBOL program. 


Two types of communication descriptions are re- 
quired, one for input and one for output. 


Input CD 


The input communication description defines an 
interface area where information relating to input 
messages is passed between the data comm subsys- 
tem, the MCS, and a COBOL program. 


SYMBOLIC QUEUE 


This field is used to pass the symbolic name of a 
queue to the data communications subsystem and 
the MCS. If a queue name which has not been de- 


she en  Sa ETE IO HE NE NTEETE AE 


sea saaumeeiae lamina died 


eset EHNA 


fined to the system is used, it is regarded as an error 
and an error code is returned in the status key field. 


The symbolic queue must be left-justified with space 


filler. 


SYMBOLIC SUB-QUEUE ‘.° 


_ The “system does not support sub-queues and an | 
_ error code is returned in the status key if the field | 
contains any character other than spaces. 


MESSAGE DATE 


The message date field has the - format_ YYMMDD 


IRANI 


(year, month, day). Its contents ‘Tepresent _ the date. 
on which the system recognizes that the _Message is 


complete. 


MESSAGE TIME 


The message time field has the format 


FORMAT OF INPUT CD AREA 


DESCRIPTION 


01 DATA-NAME 

02 DATA-NAME PIC X(12) 
02 DATA-NAME PIC X(36) | 
02 DATA-NAME PIC 9(6) 
02 DATA-NAME PIC 9(8) 
02 DATA-NAME PIC X(12) 
02 DATA-NAME PIC 9(4) 
02 DATA-NAME PIC X(1) 
02 DATA-NAME PIC X(2) 
02 DATA-NAME PIC 9(6) 


COMMENT 


SYMBOLIC QUEUE 
SYMBOLIC SUB-QUEUE 
MESSAGE DATE 
MESSAGE TIME 
SYMBOLIC SOURCE 
TEXT LENGTH 

END KEY 

STATUS KEY 
_MESSAGE COUNT 


| STATION NUMBER 


POSITION 


1-12 
13-48 
49-54 
55-62 
63-74 
75-78 

79 
80-81 


90-91 


| 
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HHMMSSTT (hours, minutes, seconds, hundredths 


ee entire somncitav eas McARIIE erent i dS ee cae 


of a second). Its contents represent the time at 


eee tea pr nen OEE 


which the system recognizes that the message is 


pamtrnvien nets  aaElkEr EERE etionh emt ear ae manent neonate Rint: tomevertesetnee ame OSL ees Sas 


complete. The hundredths of a second part of the 
field is always 00. If the program is being executed 
on a system without a clock, the time is always pres- 
ented as 24000000. 


The time and date fields are only updated by the 
system during the successful execution of a receive 


statement and reflect the time and date the incoming 


message was accepted by the system and not the 
time it was executed. 


SYMBOLIC SOURCE 


During the execution | of a Teceive_ statement, the 


system places in the symbolic source field the sym- 


Fees acme 


bolic name of the station that is the source of the 


message being transferred. 


TEXT LENGTH 


The system places in the text length field the num- 
ber of character positions filled as a result of the ex- 
ecution of the receive statement. 


eenemnsnnnrntne innate Somat insindisiasiandil 


END KEY 


The contents of the end key field are set during 


soars eye immense 


the execution of a receive statement according to the 
following rules: 


1. If an end-of-group has been detected, end key 


2. If an end-of-message has been detected, end 
key = 2. 
3. It less than a message is transferred, end key 


ncncincisnnglinsiouivatne 


= 0 (the message was truncated). 


area ee ened 


STATUS KEY 


The contents of the status key field are set during 


the execution. of Teceive, accept message. count, en- 


key values are listed in figure 7-1. 


MESSAGE COUNT 


The contents of the message count field indicate 
the number of messages that exist in a queue. ue. The 


field is only updated as part of the execution of an 
Accept statement with the count phrase. 


QUEUE NUMBER 


The field queue number is provided to allow the 
system to minimize the overhead of name-to-number 
translation. Wherever symbolic queue or symbolic 
sub-queue are changed by the program, this field is 
changed to @FFFF@. This This field 1 As | not accessible to 
the user. 


STATION NUMBER 


The field station number is provided to allow the 
system to minimize the overhead of name-to-number 
translation. Wherever symbolic source is changed by 
the program, this field is changed to @FFFF@. This 
field js Rot accessible_ fo. the user, aimed 


es 


OUTPUT CD 


The output communication description (CD) de- 
fines an interface area where information relating to 
output messages is passed between the COBOL pro- 
gram, the MCS, and the data communications sub- 
system. 


FORMAT OF OUTPUT CD AREA 


DESCRIPTION 


01 DATA-NAME 
02 DATA-NAME PIC 9(4) 
02 DATA-NAME PIC 9(4) 


02 DATA-NAME PIC X(2) 
02 DATA-NAME PIC X(1) 


02 DATA-NAME PIC X(12) 


ar. 
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COMMENT POSITION 
DESTINATION COUNT 1-4 
TEXT LENGTH 5-8 
STATUS KEY 
ERROR KEY 


SYMBOLIC DESTINATION 12-23 
STATION NUMBER | 


R 
E 
Cc 
E 
| 
V 
E 


o2mnNn 


moe-eopn-o 


STATUS KEY CONDITIONS 


moeopn-—-o 


xACVHACO 


NO ERROR DETECTED. 
ACTION COMPLETED. 


DESTINATION UNKNOWN OR ACCESS DENIED 
BY MCS. NO ACTION TAKEN FOR UNKNOWN 


DESTINATION. ERROR KEY INDICATES UNKNOWN. 


QUEUE UNKNOWN OR ACCESS DENIED BY MCS. 


NO ACTION TAKEN. 


CONTENT OF DESTINATION COUNT INVALID. 
NO ACTION TAKEN. 


CHARACTER COUNT GREATER THAN LENGTH OF 
SENDING FIELD. NO ACTION TAKEN. 


MCS/DC SUBSYSTEM NOT AVAILABLE. 


Figure 7-1. Status Key Conditions 
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DESTINATION COUNT 


The destination count field indicates the number of 


coe table. (Field error key and symbolic destination’ 


comprise the destination table). 


The system permits only one destination to be 
specified and if the destination count has any value 
other than 1, an error condition is indicated in the 


‘status key field and execution of the Statement is ter- 
-Minated. 


TEXT LENGTH 


The system interprets the text length field as the 


PrN RR 


number of characters to be sent_when executing a 


send_ statement. 


STATUS KEY 


The contents of the status key field are set during 
the execution of Send, Enable Output, and Disable 
Output. The Status Key values are listed in figure 7- 
1. | | 


ERROR KEY 


The error key field, when equal to 1, indicates that 
the symbolic destination is unknown or not. accessi- 
ble by this program. The status key field is set to a 
value indicating the appropriate condition. Other- 


wise, the error key field is set to 0. 


SYMBOLIC DESTINATION 


The symbolic destination field is used to pass the 


symbolic name of the destination station while | 
executing Send, Enable Output, and Disable Output 


statements. 


STATION NUMBER 


The station number field allows the system to min- 


emia ih stents Sh AOR EM 


imize the overhead of name-to-number translation. 
Wherever symbolic destination is changed by the 
COBOL program, the station number field is 


changed to @FFFF@. This field 1 iS poe AEE SIDE te 


nner ernest cents vin binche si aentPet one hibannaaes certo arte 
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the user. 


COBOL DATA COMM 
STATEMENTS 


To ensure some degree of system integrity, all 
COBOL data comm statements cause a check to be 
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performed as to whether this user is currently ‘‘at 
tached’’ to a designated symbolic queue (input) and/ 
or a designated symbolic destination (output). 


In the event the COBOL program is not currently 
attached to the appropriate queue or destination, an 
attach message is formulated and placed on the MCS 
queue. The format of these messages is: 


For ACCEPT, DISABLE INPUT, ENABLE IN- 
PUT AND RECEIVE: 


TYPE 

TASK 

TEXT LENGTH 
SUBNET QUEUE 


TEXT 


“ATTACH QUEUE” 

TASK NUMBER 

12 

SUBNET QUEUE NUMBER 


SYMBOLIC QUEUE NAME 


For DISABLE OUTPUT, ENABLE OUTPUT, 
AND SEND: 


TYPE = “ATTACH STATION” 

TASK = TASK NUMBER 

STATION = LOGICAL STATION NUMBER 
TEXT LENGTH = § 12 

TEXT = SYMBOLIC DESTINATION 


(STATION NAME) 


The COBOL program is waited until the MCS per- 
forms an Allow or Disallow communicate. 


ACCEPT 


ACCEPT <cd-name> MESSAGE COUNT; 


Accept causes the depth (number of entries) of the 
subnet queue identified by symbolic queue to be in- 
serted into MESSAGE.COUNT. 


Before this can be done, Accept must check that 
the symbolic queue is known, that the symbolic sub- 
queue is space-filled, and that the task 1s attached to 
the symbolic queue. If the task is not attached, Ac- 
cept attempts to rectify the situation by issuing an 
Attach Queue message to the MCS and waiting for 
the reply. Any failure causes the STATUS.KEY to 
be set to 20. 


Successful execution (and therefore a meaningful 


MESSAGE.COUNT]) is indicated by a STATUS- 
-KEY of 00. 


ENABLE INPUT 


ENABLE INPUT <cd-name> WITH KEY <identifi- 
er/literal>; 


Enable Input invokes a function defined by the 


MCS, by sending an Enable Queue message to the 
MCS. | 


Before this can be done, Enable Input must check 
that the symbolic queue is known, that the symbolic 
sub-queue is space-filled, and that the task is at- 
tached to the symbolic queue. If the task is not at- 
tached, enable input attempts to rectify the situation 
by issuing an Attach Queue message to the MCS and 
waiting for the reply. Any failure causes the STA- 
TUS.KEY to be set to 20. 


If these tests succeed and the task is attached, sta- 
tus key is set to 00 and an Enable Queue message 
sent to the MCS. The semantics of Enable Input are 
defined by the MCS; in particular, key validation is 
performed by the MCS and thus there is no 
mechanism which allows for the rejection of the key. 
MESSAGE TO MCS: 

ENABLE INPUT 


TYPE 

TASK 

Subnet Queue 
Text Length 
Text 


‘*Enable Queue’’ 

Task Number 

Subnet Queue Number 

13-22 

12 Characters of Queue Name, 
Followed by Information Defined by 
**Key’’. 


hou we we a 


DISABLE INPUT 


DISABLE INPUT <cd-name> WITH KEY <identifi- 
er/literal>; 


Disable Input invokes a function defined by the 
MCS, by sending a Disable Queue message to the 
MCS. 


Before this can be done, disable input must check 
that the symbolic queue is known, that the symbolic 
sub-queue is space filled, and that the task is at- 
tached to the symbolic queue. If the task is not at- 
tached, disable input attempts to rectify the situation 
by issuing an Attach Queue message to the MCS and 
waiting for the reply. Any failure causes the STA- 
TUS.KEY to be set to 20. 


If these tests succeed and the task is attached, sta- 
tus key is set to 00 and a Disable Queue message is 
sent to the MCS. The semantics of Disable Input are 
defined by the MCS; in particular, key validation is 
performed by the MCS and thus there is no 
mechanism which allows for the rejection of the key. 
MESSAGE TO MCS: 


DISABLE INPUT 


TYPE 
Task 
Subnet Queue 


‘*Disable Queue’’ 
Task Number 
Subnet Queue Number 


Hoi il 


Text Length 
Text 


13-22 
12 Characters of Queue Name, 


Followed by Information Defined by 
66 Key’ 9 ; 


il 


ENABLE OUTPUT 


ENABLE OUTPUT <cd-name> WITH KEY <identi- 
fier/literal>; 


Enable Output invokes a function defined by the 
MCS, sending an Enable Station message to the 
MCS. 


Before this can be done, several checks must be 
made: 


If the destination count is not equal to 1, then 
STATUS.KEY is set to 30. 

If the symbolic destination is not known to the 
system, then STATUS.KEY is set to 20 and 
ERROR.KEY is set to 1. 

If the task is not attached to the symbolic destina- 
tion, then Enable Output attempts to rectify this 
situation by issuing an Attach Station message 
to the MCS and waiting for the reply. If attach- 
ment is denied, then STATUS.KEY is set to 20 
and ERROR.KEY is set to 1. 


If these tests succeed and the task is attached, sta- 
tus key is set to 00, error key to 0, and an Enable 
Station message is sent to the MCS. The semantics 
of Enable Output are defined by the MCS; in partic- 
ular, key validation is performed by the MCS and 
thus there is no mechanism which allows for the re- 
jection of the key. 

MESSAGE TO MCS: 

ENABLE OUTPUT 


Type =  ‘‘Enable Station’’ 

Task = Task Number 

Station = Logical Station Number 

Text Length = 13-22 

Text = 12 Characters of Station Name, 


Followed by Information Defined by 
66 Key’ 9 : 


DISABLE OUTPUT 


DISABLE OUTPUT <cd-name> WITH KEY <iden- 
tifier/literal>; 


Disable Output invokes a function defined by the 
MCS, by sending a Disable Station message to the 
MCS. 


Before this can be done, several checks must be 
made: 
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If the destination count is not equal to 1, then 
STATUS.KEY is set to 30. 

If the symbolic destination is not known to the 
system, then STATUS.KEY is set to 20 and 
ERROR.KEY is set to 1. 

If the task is not attached to the symbolic destina- 
tion, then disable output attempts to rectify this 
situation by issuing an Attach Station message 
to the MCS and waiting for the reply. If attach- 
ment is denied, then STATUS.KEY is set to 20 
and ERROR.KEY is set to 1. 


If these tests succeed and the task is attached, sta- 
tus key is set to 00, error key to 0, and a Disable 
Station message is sent to the MCS. The semantics 
of Disable Output are defined by the MCS; in partic- 
ular, key validation is performed by the MCS and 
thus there is no mechanism which allows for the re- 
jection of the key. 

MESSAGE TO MCS: 

DISABLE OUTPUT 


Type = ‘Disable Station’’ 

Task = Task Number 

Station = Logical Station Number 

Text Length = 13-22 

Text = 12 Characters of Station Name, 
Followed by Information Defined by 
*“Key’’. 

RECEIVE 


RECEIVE <cd-name> MESSAGE INTO 
<identifier>{; NO DATA <statement> | 


Receive attempts to read a message from_the 
queue specified by symbolic queue. If successful, 
the message text is moved to the data area and infor- 
mation about the message is assembled in the input 


CD_area. 


Before this can be done, receive must check that 
the symbolic queue is known, that the symbolic sub- 
queue is space-filled, and that the task is attached to 
the symbolic queue. If the task is not attached, re- 
ceive attempts to rectify the situation by issuing an 
Attach Queue message to the MCS and waiting for 
the reply. Any failure causes the STATUS.KEY to 
be set to 20. 


If the. _symbolic _ queue is empty, and the NO 
DATA. phrase is specified, then receive sets the 
fetch value t @100000@ and exits to allow execu- 


teams 


tion of the NO DATA statement. 


If the _Symbolic_ queue is empty, | and the NO 


until a message. ‘appears. ‘on the queue. 
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The message text is moved to the data area left- 
justified, without space | fill, and the text length field 
is set to reflect the size of the message. The message 
data and message time are updated with the quanti- 
ties implied by their names. Symbolic source is up- 
dated to the name of the station where the message 


SRNR ON AAAI 


originated. If the message exceeds the length of the — 
data area, the message is truncated and the end key 
set to 0. If the message is detected as being the last 


of a group, end key is set to 3, otherwise it is a 2. 


Status key is set to 00 to indicate successful 
execution. 


SEND 


WITH _EMI 
SEND cdname [FROM identifier-1] 4? mt 
ae oS WITH | 


~ Sidentifier-2 ( LINE 


} : 
( BEFORE ADVANCING \ Cinteger } LINES 
( AFTER | (mnemonic name 
~ 7 PAGE 


Send attempts to dispatch a message ultimately to 
the station named by symbolic destination in the out- 
put CD area. The message is actually sent either to 
the MCS or to the appropriate station depending on 
the history of routing directives (ROUTE.OUTPUT 
communicates) issued by the MCS. 


Before this can be done, several checks must be 

made: 

1. If the destination count is not equal to 1, then 
STATUS.KEY is set to 30. 

2. If the symbolic destination is not known to the 
system, then STATUS.KEY is set to 20 and 
ERROR.KEY is set to 1. 

3. If the task is not attached to the symbolic desti- 
nation, then send attempts to rectify this 
situation by issuing an Attach Station message 
to the MCS and waiting for the reply. If attach- 
ment is denied, then STATUS.KEY is set to 20 
and ERROR.KEY is set to 1. 

4. If the TEXT.LENGTH exceeds the size of the 


tame pantirenetoe reece 


data area given by identifier-1, then the mes- 
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sage is not sent and STATUS KEY i is set to 50. 


If insufficent buffer space is available for the 
SEND, the task is suspended until space becomes 
available. 


The amount of space required for the SEND mes- 
sage includes the CMS message header. All valid 
header fields for this message type are initialized. 
The RETRY field is set equal to the value of 
ORIGINAL RETRY, found in the station table of 
the destination station. 


If output is to be directed to the MCS and the 
task’s output count is greater than, or equal to, its 
output limit, the task is suspended until the MCS is- 
sues a CONTINUE.TASK communicate or until the 
route indication is changed. Messages directed to the 
MCS are marked with TYPE = SEND. 


The phrase WITH EMI/EGI indicates that the 
contents of identifier-1 are to be associated with an 
end of message indicator (EMI) or an end-of-group 
indicator (EGI). WITH EMI implies that this mes- 
sage is one of a group of messages and that the final 
message of the group is sent using the phrase WITH 
EGI. The implication is that a single message (not 
one of a group) should always be sent using the 


phrase WITH EGI. Note that this phrase is eventu- 


ally mapped into the block bit of the message header 
options field. 


The advancing phrase is encoded in the message 
header options and SKIP.CONTROL fields. The ul- 
timate effect of this action is defined by the MCS 
and the associated line procedures. 


SKIP CONTROL (CPA BYTES 3, 4) 


Encodings of the skip control fields are: 


BYTE 3 

Bit 7 = 1 

Bit 6 = 1 

Bit 5 = 0 = Print Before Papermotion 
1 = Print After Papermotion 

Bit 4 = 0 = Do Not Advance To New Page 
1 = Advance To New Page 

Bit 3 = 0 = Do Not Skip To Channel 
1 = Skip to Channel 

Bit 2 = 0 

Bit 1 = 0 

Bit 0 = 0 = Do Not Advance Line(s) 
1 = Advance Line(s) 


If either bit 3 or bit 0 of byte 3 is set, byte 4 con- 
tains the line count or channel number as appropri- 
ate. 


VARIANT (FROM IDENTIFIER-1] 


The system is notified of the absence of the 
FROM <identifier-1> phrase by the data area size 
(CPA bytes 12-13) being zero. 


STATUS.KEY is set to 00 to indicate successful 
completion. 


SECTION 8 
RECONFIGURATION 


GENERAL 


On CMS systems, reconfiguration means to alter 
the NDL descriptions of some characteristics of the 
data comm lines and station. Two MPLII data comm 
communicates in the MCS program, REDEFINE- 
.LINE and REDEFINE.STATION, are used to per- 
form these alterations. Thus, in CMS systems, it is 
possible for an MCS program to modify the data 
comm network which it controls. The reconfigura- 
tion changes are made to the temporary NDL tables 
used during execution of an MCS program. This 
means that the reconfiguration is temporary; that is, 
the next time the same NDL program is used, the 
network is in the original configuration. 


REDEFINE.LINE 


MODEM 


For an explanation of the items, see Line Table 
Layout. 


The REDEFINE.LINE communicate alters the 
description of a line. The line’s logical number and 
a data area containing the desired changes are the 
parameters of the communicate. 


The data variable contains the values to be in- 
serted into the alterable fields of the line table. If the 
data variable is not at least three bytes long, an error 
is monitored. 


The characteristics of a line which may be altered 
are: 


Modem 

Transmission Method (type bit 1) 
Form of Sync Character (type bit 2) 
Dialin Capability (type bit 3) 

Dialout Capability (type bit 4) 

Dialout Device (type bit 5) 

Action on Loss of Carrier (type bit 6) 
Rateselect Capability (type bit 8) 

Rate (type bit 9) 


e Standby Capability (type bit 10) 
e Use of Standby Speeds (type bit 11) 


Success in redefining these fields does not depend 
on their current values, but on the definitions of re- 
lated parts of the network. These conditions are de- 
scribed in the Network part of this section. 


Another factor is that the system cannot be ac- 
tively using the line to be redefined. That is, there 
can be no messages for that line or any station on 
it in the NDL request queue and the line must be 
not-ready. Switched lines must also be not-switched- 
busy and not-connected. If either of these require- 
ments is not met, an error is monitored. 


Note that the use of modems characteristics (type 
bit 7) may not be altered. Its value in the type word 
to be inserted must be the same as its current value. 
Also, the current value for the use of modems char- 
acteristic must be modems (as opposed to no mo- 
dems or direct-connect). If either of these conditions 
iS not met, an error is monitored. 


If the line can be legally redefined to have the giv- 
en values, the line table alterable fields and (for any 
Station on the line) some station table fields are 
reinitialized. The fields in the line table which are 
reinitialized are: 


e Line Descriptor, including resetting line toggles 
0 and | 

Line Tally (0) 

Line Tally (1) 

Aux Line Tally (0) 

Aux Line Tally (1) 

Aux Line Descriptor 


If there are stations on the line, the following 
fields are reinitialized in those station tables: 


e Active Transmit Delay 


@e Run Mode (second stop bit) 
@ Line Priority Code © 


REDEFINE.STATION 


For an explanation of the items, see Station Table 
Layout. 
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LOGICAL LINE NO. | _ RUN MODE_ BITS 
END CHARACTER [LINE DELETE CHARACTER 
BACKSPACE CHARACTER | WRL CHARACTER 
CONTROL CHARACTER : STATION FREQUENCY 
TRANSMIT ADDR._1 TRANSMIT ADDR. ° 
TRANSMIT ADDR. 2 | __ RECEIVE ADDR. ? 
| RECEIVE ADDR. 2? | RECEIVE ADDR. 3 
TYPE _ 
SPEED. 


MODEM 


ORIGINAL RETRY 


TERMINAL 


The REDEFINE.STATION communicate alters 
the description of one station. The parameters of the 
communicate include the station’s logical number 
and a data area containing the desired changes. 


The data variable contains the values to be in- 
serted into the alterable fields of the station table. If 
the data variable is not at least 21 bytes long, an er- 
ror iS monitored. 


The characteristics of a station which may be al- 
tered are: 


Logical Line Number 

Myuse Output Capability (run mode bit 7) 
Myuse Input Capability (run mode bit 6) 
Use of Second Stop Bit (run mode bit 5) 
Allowing of Input (run mode bit 4) 

End Character 

Line Delete Character 

Backspace Character 

WRU Character 

Control Character 

Station Frequency 

Transmit Address Characters 

Receive Address Characters 

Form of Duplex (type bit 0) 

Use of Modems (type bit 7) 

Use of Telex (type bit 12) 

BDI Mode (type bit 13) 

Speed 

Modem 

Terminal 

Original Retry 


‘The actions taken in performing the REDEFINE- 
STATION communicate depend on the value of the 
logical line number currently in the station table and 
the value of the logical line number to be inserted 
into the table. One action is to remove a station 
from a line. In this case, no changes are made to the 
station table except for the logical line number. This 
action is taken when the line number in the table is 
a valid logical line number and the line number to be 
inserted is @FF@. 


Another action is to add a station to a line and up- 
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date all the alterable fields of the station table. This 
is done when the line number in the table is @FF@ 
and the line number to be inserted is a valid logical 
line number. 


The last action is to change all the alterable fields 
of the station table for a station which is on a line. 
In this case, the line number in the table and the line 
number to be inserted are the same valid logical line 
number. If both are valid logical line numbers but 
they are different, an error is monitored. In the case 
that both the line number in the station table and the 
line number to be inserted are @FF@, no action 1s 
taken. 


For all other alterable fields, success in redefining 
them does not depend on their current definition but 
on the definition of related parts of the network. 
These conditions are described in the Network sec- 
tion. 


Another factor in the success of redefining a sta- 
tion is that the system cannot be actively using that 
Station or the line involved in the redefinition. This 
means that there can be no messages for that line or 
any station on it in the NDL request queue and the 
line must be not ready. For this type bits stations, 
both save queues must be empty. Also, if the station 
is being removed from the line, the station cannot be 
in the Queued condition. Additionally, if the station 
is being added to a line, there must be room for it; 
which means that in the line table the current value 
of the Max Stations field is less than the current 
value of the Max Entries field. If any of these re- 
quirements is not met, an error is monitored. 


If the REDEFINE.STATION action requested is 
legal, the station table and line table are updated and 
reinitialized according to the particular action. When 
removing the station from the line, the only alterable 
field which is changed is the logical line number. 
Also, in the station table, the attached status field is 
reinitialized. In the line table, the Max Stations field 
is decremented and the station’s entry in the line 
vector is removed. 


For the actions of adding the station to the line or 
changing the station on the line, all the alterable 
fields are changed. Also, these Line Table fields are 
reinitialized: 


@ Line Desc (full duplex) 
e Station Tally of This Station 
e Station Description of This Station 


In the station table, these fields are reinitialized: 


e Line Priority Code 
e Receive Transmission Number 


Transmit Transmission Number 
Tally (0) 

Tally (1) 

Tally (2) 

Tally (3) through Tally (18) 
Toggles 

Options 

Events 

Initiate Receive Delay 

Active Transmit Delay 


The output routing of the station is also reinitia- 
lized. 


Some additional reinitialization and updating are 
done for the add action. In the line table, the Max 
Stations field is incremented and an entry is added 
to the station vector. These fields are reinitialized in 
the station table: 


Relative Station Number 
Unprocessed Input Limit 
Unprocessed Input Count 
Queue Limit 

Subnet Queue Address 


NETWORK 


The conditions which a redefinition must meet 
concerning related network -parts are ones which re- 
sult in a network description that is legal under the 
requirements of CMS NDL. With only one excep- 
tion, these conditions exclusively involve the de- 
scriptions of the parts of the one line affected by the 
specific redefinition. Those descriptions are: the line 
description, the description of the line modem, the 
descriptions of any stations on the line, the descrip- 
tions of those stations’ modems, and the descriptions 
of their terminals. Some network conditions are met 
automatically because many parts of the network 
cannot be redefined. The conditions for which the 
redefinition must be validated are: 


e All of the descriptions must specify the same 
transmission method - Asynchronous or Syn- 
chronous 

e All of the modem descriptions and the line de- 
scription must specify the same action on Loss 
of Carrier, Rateselect Capability, and Standby 
Capability 

e If the line description specifies Dialin, the lines 
modem description must specify Dialin 

e If the line description specifies Dialout, either 
the line description specifies ACU or the Line 
Modem Description specifies Dialout, but not 
both 

e If the line description does not specily Dialout, 
it must not specify ACU 


If the line description specifies Telex, it must 
not specify the Standby Option 


If the line description specifies Telex, and if the 
station and terminal descriptions specify Telex, 
then the line description must not specify the 
Rateselect Option 


For each station, the station description and its 
terminal description must specify the same use 
of Telex 

All of the terminal descriptions must specify the 
same use of Telex 

If the station and terminal descriptions specify 
Telex, the line description must specify Telex 
If the line description specifies BDI, then all of 
the station and terminal descriptions must 
specify BDI 

If a line description specifies Bits, then it must 
also specify use of Modems and Synchronous 
transmission 

All corresponding terminal, station, and line de- 
scriptions must specify the same use of BDI 
All corresponding terminal, station, and line de- 
scriptions must specify the same use of Bits 
All modem and station descriptions and line de- 
scriptions must specify the same use of Modems 
All of the station and terminal descriptions and 
the line description must specify the same form 
of Sync Characters - ASCII or EBCDIC 

All corresponding terminal, station, and line de- 
scriptions must specify the same Duplex 
Capability | 

If the station and terminal descriptions specify 
Full Duplex, all of the modem descriptions and 
the line description must specify Full Duplex 


e If the line description specifies BDI, the line de- 


scription and all of the modem descriptions must 
specify the same Duplex Capability as is 
specified by the station and terminal descrip- 
tions 

If the line description specifies Direct-Connect 
and if the line description does not specify BDI, 
then, for each terminal, the terminal description 
must specify Direct-Connect 


If line description specifies Modems, then, for 
each terminal, the terminal description must 
specify Modem 

If a terminal description specifies Tallies, then 
each associated station description must specify 
Tallies 

For each station, the station description must 
specify exactly as many non-null Transmit Ad- 
dress Characters as the terminal description 
specifies in the Transmit Address Count and the 
Receive Address Count 

For each station, if its terminal description spec- 
ifies no Receive Request Set, the station de- 
scription must not specify Myuse Input 

For each station, if its terminal description spec- 
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ifies no Transmit Request Set, the station de- 
scription must not specify Myuse Output 

For each station, if the station description does 
not specify Myuse Input, it must not specify En- 
able Input 


If the line description specifies Synchronous, 
then, for each station, the station description 
must not specify Second Stop Bit 

If the line description specifies Asynchronous, 
then, for each station, the station description 
must specify the same number of Stop Bits as 
its terminal description specifies for line Speed 
If the line description specifies Asynchronous, 
all station descriptions must specify the same 
number of Stop Bits 

If the line description specifies Synchronous, 
then, for each station, the station description 
must specify one speed within the Synchronous 
range 

If the line description specifies Synchronous, all 
of the modem descriptions must specify the 
same Speed or Speeds 

If the line description specifies Synchronous, 
then, for each station, the station description 
must specify a Speed greater than, or equal to, 
the highest Speed specified in the modem de- 


scriptions 
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If the line description specifies Synchronous, 
then, for each terminal, the terminal description 
must specify a Speed greater than, or equal to, 
the highest Speed specified in the modem de- 
scriptions 

If the line description specifies Asynchronous, 
and if the line description specifies both the Ra- 
teselect and Standby Options, then, for each 
station, the station description must specify 
three Speeds within the Asynchronous range 
If the line description specifies Asynchronous, 
and if the line description specifies the Ratese- 
lect Option but not the Standby Option, then, 
for each station, the station description must 
specify two Speeds within the Asynchronous 
range 

If the line description specifies Asynchronous, 
and if the line description does not specify the 
Rateselect or Standby Options, then, for each 
station, the station description must specify one 
Speed within Asynchronous range 

If the line description specifies Asynchronous, 
then each corresponding station and terminal de- 
scription must specify the sameSpeed or Speeds 
If the line description specifies Asynchronous, 
then all of the station descriptions must specify 
the same Speed or Speeds 

If the line description specifies Telex, for each 
terminal description that does not specify Telex 
but specifies Horizontal Parity; CRC, BCC, 


Ones, or Summed Parity must not be specified 

@ If the line description specifies Telex, then, for 
each terminal, if the terminal description does 
not specify Telex, then if the terminal descrip- 
tion has Horizontal Parity (Terminal Run 
Mode), then the terminal description must not 
specify CRC, BCC, Ones, and Summed Parity 

@ All of the terminal descriptions must specify the 
same use of Vertical Parity (Terminal Run 
Mode), Use of Translation (Terminal Run 
Mode), Use of Case Shift (Terminal Run Mode), 
Transmit Address Count, Receive Address 
Count, Sync Character, Parity Mask, Auxiliary 
Line Control Set, Line Control Set, Adapter 
Info, and Translation Table 

e If the line description specifies Asynchronous, 
then, at each Speed specified by the station de- 
scriptions, all of the terminal descriptions must 
specify the same number of Stop Bits 

e If a line description specifies Bits, then all corre- 
sponding terminal descriptions must specify the 
same modulus 

e If a station description specifies Bits, then the 
transmit and receive address for that station 
must be different 


The one unusual condition is that not all of the 
terminals described in the NDL program are neces- 
sarily allowed to communicate with a particular DCP 
program file. The possible terminals are those named 
for a DCP’s current program file in that DCP’s ter- 
minal description. The particular DCP is specified 
by the line address in the description of the line in- 
volved in the redefinition. 


If the redefinition fails to meet these conditions, 
an error is monitored. 


ERRORS 


Below are the events which are reported by un- 
successful REDEFINE LINE communicates: 


@00D0@ 208 DC ERROR BAD LINE NO 

@00DI@ 209 DC ERROR BAD MODEM NO 

@00DD@ 221 DC ERROR ATTRIBUTE MISMATCH 
@00DE@ 222 DC ERROR DIRECT CONNECT LINE 
@00DF@ 223 DC ERROR FULL DUPLEX MISMATCH 
@O00EQ@ 224 DC ERROR INCOMPLETE VARIABLE 
@O00EI@ 225 DC ERROR IMPROPER LINE CONDITION 
@00E2@ 226 DC ERROR MESSAGES QUEUVED 
@00E4@ 228 DC ERROR SPEED MISMATCH 


These are the events which are reported by unsuc- 
cessful REDEFINE STATION communicates: 
@00CI@ 201 DC ERROR BAD STATION NO 


@00D0@ 208 DC ERROR BAD LINE NO 
@00DI@ 209 DC ERROR BAD MODEM NO 


@00D2@ 210 DC ERROR BAD TERMINAL NO @Q0EQ@ 224 DC ERROR INCOMPLETE VARIABLE 


@00DC@ 220 DC ERROR STATION ALREADY @00EI@ 225 DC ERROR IMPROPER LINE CONDITION 

ATTACHED @00E2@ 226 DC ERROR MESSAGES QUEUED 
@0O0DD@ 221 DC ERROR ATTRIBUTE MISMATCH @00E3@ 227 DC ERROR NO VACANCY ON LINE 
@O00DF@ 223 DC ERROR FULL DUPLEX MISMATCH @00E4@ 228 DC ERROR SPEED MISMATCH 
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SECTION 9 
MPLII USER DATA 
COMMUNICATIONS 


GENERAL 


A user data comm interface, similar to COBOL in 
nature, is provided within the MPLII language 
through a set of built-in procedures and functions. 
This interface provides an identical COBOL inter- 
face to the data comm subsystem. 


DC.ACCEPT 


DC.ACCEPT (<queue name>, <result>); 


This built-in procedure is used to set the value of 
<result> to the fixed value of the count of messages 


on the subnet queue specified by <queue name>. 


The status key within the input CD can be tested 
to determine the validity of the value of <result>. 
The <queue name> must be of type characters. 


Refer to ACCEPT in the COBOL Data Comm 
Statements section. 


DC.ENABLE.INPUT 
DC.ENABLE.INPUT (<queue name>, <password>); 


This built-in procedure invokes an MCS-defined 
function by sending an ENABLE QUEUE message 
to the MCS. 


The <queue name> and <password> must be of 
type character. 


The success or failure of the operation can be 
checked by interrogating the status key of the input 
CD area. Only the first 10 characters of <pas- 
sword> are significant. Refer to ENABLE INPUT 
in the COBOL Data Comm Statements section. 


DC.ENABLE.OUTPUT 


DC.ENABLE.OUTPUT (<station name>, <pas- 
sword>); 


This built-in procedure invokes an MCS-defined 


function by sending an ENABLE STATION mes- 
sage to the MCS. 


The <station name> and <password> must be of 
type character. 


The success or failure of the operation can be 
checked by interrogating the status key of the output 
CD area. Only the first 10 characters of <pas- 
sword> are significant. Refer to ENABLE OUT- 
PUT in the COBOL Data Comm Statements section. 


DC.DISABLE.INPUT 


DC.DISABLE.INPUT (<queue name>, <pas- 
sword>); 


This built-in procedure invokes an MCS-defined 
function by sending a DISABLE QUEUE message 
to the MCS. 


The <queue name> and <password> must be of 
type character. 


The success or failure of the operation can be 
checked by interrogating the status key of the input 
CD area. 


Only the first 10 characters of <password> are 
significant. 


Refer to DISABLE INPUT in the COBOL Data 
Comm Statements section. 


DC.DISABLE.OUTPUT 


DC.DISABLE.OUTPUT (<station name>, <pas- 
sword>); 


This built-in procedure invokes an MCS-defined 
function by sending a DISABLE STATION message 
to the MCS. 


The <station name> and <password> must be of 
type character. 
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The success or failure of the operation can be 
checked by interrogating the status key of the output 
CD area. 


Only the first 10 characters of <password> are 
significant. Refer to DISABLE OUTPUT in the 
COBOL Data Comm Statements section. 


DC.RECEIVE 


DC.RECEIVE (<queue name>,<destination>, 
<char count><wait option>); 
<char count> ::= <expression> 
<wait option> ::= <empty> |, NOWAIT 


This built-in procedure is used to remove the top 
message from the queue specified by <queue name> 
and copy its text to the data field specified by <des- 
tination>. The number of characters moved is the 
smaller of the fixed value given by <char count> 
and text length of the message. 


If the specified queue is empty, the program is 
waited until a message is placed on the queue, un- 
less the NOWAIT option is specified, in which case, 
control passes to the next statement. 


The input CD area contains information about the 
message and can be interrogated by use of the pro- 
vided built-in functions. 


The <queue name> and <destination> must be 
of type character. Refer to RECEIVE in the 
COBOL data comm statements section. 


DC.SEND 


DC.SEND (<station name>,<source>,<char count> 

<eom option> <before/after option> <line control> 

<NOWAIT option> ); 

<eom option> ::=, EMI | <empty> 

<before/after option> ::=, BEFORE | <empty> 

<line control> ::=, PAGE |, LINE |, LINE (<ex- 

pression>) | <empty> 

<NOWAIT option> ::=, NOWAIT | <empty> 
This built-in procedure is used to send a message 

to the station specified by <station name>. 


The text of the message is obtained from the data 
field specified by <source>. The number of charac- 
ters moved is given by the fixed value of <char 
count>. 


The message is assumed to be the last of a logical 
group of messages unless the EMI (end-of-message 
indicator) is specified. 


If <line control> is specified, the station should 
have carriage control capabilities. PAGE specifies an 
advance to top of the next page. LINE (<expres- 
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sion>) causes N lines to be skipped; where N is the 
fixed value of <expression>. 


If the before option is specified, the carriage con- 
trol information is actioned before the message text 
is printed. 


The output CD area contains information about 
the message and can be interrogated by use of the 
built-in functions. 


If the <NOWAIT option> is specified, and the 
send will exceed a currently active queue limit, con- 
trol is returned to the program with a fetch value of 
@100001@. 


If <NOWAIT option> is specified and the subsys- 
tem lacks sufficient buffer space to accommodate the 
send, control is returned to the program with a fetch 
value of @100000@. 


The <source> and <station name> must be of 
type character. Refer to SEND in the COBOL Data 
Comm Statements section. 


INPUT RELATED FUNCTIONS 


The input CD is implicity defined by the MPL 
interpreter. 


DC.NODATA 

This built-in function returns a true value if the 
FETCH VALUE of the preceeding communicate 
was equal to @000000@. It may be used after either 
a DC.RECEIVE or a DC.SEND. After a DC.R- 
ECEIVE with the NOWAIT option specified, DC.N- 
ODATA returns a true value if the specified queue 
was empty; otherwise, it returns a false value. 


After a DC.SEND with the NOWAIT option spec- 
ified a true value, this indicates that the message 
was not sent. A false value indicates the SEND was 
successful. 


The value returned by DC.NODATA is meaning- 
less if the last communicate was not either a DC.R- 
ECEIVE or a DC.SEND with the NOWAIT option 
specified. 


DC.INPUT.STATUS 


This built-in function returns a fixed value indicat- 
ing whether or not there were any abnormal condi- 
tions associated with the last input-related data 
comm communicate (DC.ACCEPT, DC.ENABLE.- 
INPUT, DC.DISABLE.INPUT, or DC.RECEIVE). 


The values are: 
0 No errors; action completed. 
20 Queue unknown or access denied 
by MCS; no action taken. 
91 MCS/data comm subsystem not 
available; no action taken. 


DC.ORIGIN 


This built-in function returns a descriptor of type 
character, size 12 bytes. Its value is the symbolic 
source field (station name) of the input CD. 


DC.TEXTLENGTH 


This built-in function returns a fixed value which 
is the binary equivalent of the text length field of the 
input CD. 


DC.DATE 


This built-in function returns a descriptor of type 
character, size six bytes. Its value is the message 
date field of the input CD. 


DC.TIME 


This built-in function returns a descriptor of type 
character, size eight bytes. Its value is the message 
time field of the input CD. 


DC.ENDKEY 


This built-in function is used to interrogate the end 
key field of the input CD. 


The fixed value returned is meaningful only if the 
last data comm communicate was a DC.RECEIVE. 


The values are: 


0 The specified text length is less 
than the number of text 
characters in the message. 


2 This message is not the last of a 
logical group of messages. 

3 This message is the last of a 
logical group of messages. 


OUTPUT RELATED FUNCTIONS 


The output CD is implicitly defined by the MPL 
interpreter. 


DC.OUTPUT.STATUS 


This built-in function returns a fixed value indicat- 
ing whether or not there were any abnormal condi- 
tions associated with the last output-related data 
comm communicate (DC.ENABLE.OUTPUT, 
DC.DISABLE.OUTPUT, DC.SEND). 


The values are: 


0 No errors; action completed 

20 Destination unknown or access 
denied by MCS. No action taken. 

50 Character count greater than 
length of sending field. No action 


taken. 
91 MCS/data comm subsystem not 
available. 
DC.ERROR.KEY 


This built-in function returns the fixed value of the 
error key field of the output CD. 
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SECTION 10 
B 80-DEPENDENT 
FEATURES 


GENERAL 


This section contains a description of those fea- 
tures of the CMS data communications subsystem 
which are unique to the B 80 series. 


B 80 implementation-dependent error messages 


are: 

255 DC INVALID 

256 DC ERROR LOAD FAILURE BAD COMPILATION 

257 DC ERROR LOAD FAILURE BAD COMPILATION 

258 DC ERROR LOAD FAILURE NOT ENOUGH 
MESSAGE SPACE 

259 DC ERROR LOAD FAILURE CANNOT EXECUTE 
NDL PROGRAM 

260 DC ERROR LOAD FAILURE MISSING OR 
INVALID CONTROLLER 

261 DC ERROR LOAD FAILURE BAD COMPILATION 

255 DC INVALID 
The operator has entered a DC message when no 
MCS is running. This event does not set fetchvalue 
or fetchmessage. 

256 DC ERROR LOAD FAILURE BAD COMPILATION 
This event is returned and data comm load aborted 
if: 

(SUBNET.COUNT * 16)+1 is greater than 2000. 
That is, if there is insufficient space for the number 
of subnet queues defined. 

257 DC ERROR LOAD FAILURE BAD COMPILATION 


This event is returned and the data comm load 
aborted if: 

(STATION.COUNT * 12) is greater than 2000. That 
is, if there is insufficient space for the number of 
stations defined. 


258 


259 


260 


261 


DC ERROR LOAD FAILURE NOT ENOUGH 
MESSAGE SPACE 

This event is returned and the data comm load 
aborted if there is insufficient space declared in the 
NDL preset data for the system queue header and at 
least one message. Insufficient message space is 
declared to be: 
<(STATION.COUNT+SUBNET.COUNT +2) x 12+ 176 


DC ERROR LOAD FAILURE CANNOT EXECUTE 
NDL PROGRAM 

This occurs if the load of the NDL interpreter was 
not caused by an MCS load. 


DC ERROR LOAD FAILURE MISSING OR 
INVALID CONTROLLER 

This occurs if the system detects that a line 
channel/subchannel does not contain a valid data 
comm controller, of if the transmission method of the 
controller is incompatible with that declared for the 
line in NDL (for example, an async controller for a 
line declared as sync in NDL). The load of data 
comm is aborted. 


DC ERROR LOAD FAILURE BAD COMPILATION 
Insufficient space has been allocated to the NDL 


interpreter by the MCP. Load of data comm is 
aborted. 


The following error messages are outside the range 
of B 80-dependent errors. They refer to restrictions 
which will be lifted in the future. 


369 


379 


DC ERROR LOAD FAILURE - FULL DUPLEX 
LINE NOT IMPLEMENTED 

This event is returned and the load of the data 
comm aborted if the NDLSYS contains a full duplex 
line. 


DC ERROR LOAD FAILURE - TELEX LINE NOT 
IMPLEMENTED 

This event is returned and the load of data comm 
aborted if the NDLSYS contains a Telex line. 
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SECTION 11 


B 800-DEPENDENT 
FEATURES 


GENERAL 


This section contains a description of the features 
of the CMS data communications subsystem which 
are unique to the B 800 series. 


B 80 implementation-dependent error messages 
are: 


270 DC ERROR 7PM PARITY DC* XXXX 

271 DC ERROR SPM PARITY DC* YYYY 

279 DC LOAD/EOJ FAILURE DC* SPM PARITY 
ERROR XXXX 

280 DC LOAD/EOJ FAILURE DC* 7PM PARITY 
ERROR YYYY 

281 DC LOAD/EOJ FAILURE DC* NO RESPONSE 
(DC* indicates processor in error) 
(XXXX = four-digit 7PM address) 
(YYYY = four-digit line address) 
(7PM indicates DCP micromemory) 
(SPM indicates scratchpad memory) 

279 DC LOAD/EOJ FAILURE DC* SPM PARITY 
ERROR XXXX 

280 DC LOAD/EOJ FAILURE DC* 7PM PARITY 
ERROR YYYY : 

281 DC LOAD/EOJ FAILURE DC* NO RESPONSE 
(DC* indicates processor in error) 
(XXXX = four-digit 7PM address) 
(YYYY = four-digit line address) 
(7PM indicates DCP micromemory) 
(SPM indicates scratchpad memory) 


Detailed explanations of the messages follow. 
TEXT 
270 DC ERROR 7PM PARITY DC* XXXX 
The DCP has failed because of a microprogram 
memory parity error. 


271 DC ERROR SPM PARITY DC* YYYY 
The DCP has failed because of a scratchpad memory 
parity error. 


279 DC LOAD/EOJ FAILURE DC* SPM PARITY 
ERROR 
Load of DCP has failed because of scratchpad 
memory parity error. 


280 DC LOAD/EOJ FAILURE DC* 7PM PARITY 
ERROR 
Load of the specified DCP has failed because of a 
DCP microprogram memory parity error. 


281 DC LOAD/EOJ FAILURE DC* NO RESPONSE 
The DCP specified in a load or reload has failed to 
complete handshake after load process. 


B 800 SCRATCH PAD MEMORY 


A formatted SYSDUMP shows an analysis of the 
data comm memory space if an MCS was running at 
the time of the clear/start. 


The last part of this analysis is a breakout of the 
scratch pad memory for each line (figure 11-1). 


Pages 0 and 1 of the scratch pad memory dump 
are valid for half-duplex memory. Pages 0, 1, 2, and 
3 are valid for full-duplex memory. 


Columns headed by ‘‘D---’’ are the columns con- 
taining the actual data described in the figure. The 
columns headed by ‘‘S---’’? contain the status word 
for the read of the previous data word. This status 
word should be 0000 (good status). Any non-zero 
status word indicates an error in the DCP. 


The following description describes the content of 
page 0 of scratch pad memory. Page 2 uses the same 
mnemonics, but is for the full-duplex auxiliary line. 
These descriptions deal with the individual bytes 
shown in figure 11-2. 


Bytes 0 and 1, M-PTR-L and 
M-PTR-M 
This field contains the absolute DCP microaddress 


used by the manager to store the nonerror return ad- 
dress. 


Byte 2, LINE-NO 


This field contains the physical address of the 
communication line associated with this set of SPM. 


Byte 3, ID 


This field contains the DCP number associated — 
with this DCP. 


Byte 4, DS-DESC 


This field contains the current copy of the data set 
descriptor used by hardware. DC-DESC is only 
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Figure 11-1. Data Comm 


Processor Scratch Pad 


Memory Dump 


maintained in page 0, not in page 2. Bits and their 
purposes are: 


Bit Purpose 
7 SECOND STOP BIT 

6 STANDBY RATE 

5 RATE 

4 NEW SYNCHRONOUS 

3 DATA MODE 

2 DATA TERMINAL READY 
l ORIGINATE | 

0 REQUEST TO SEND 


Byte 5, LINE-Q-HEAD 


This byté contains the LINE-NOof the highest pri- 
ority line currently in the line queue. If there are no 
lines in the line queue, this field contains 1’s. 


Byte 6, FRWD-LNK 


This field contains the LINE-NO of the next lower 
priority line currently in the line queue. If it contains 
1’s, then the present line is the lowest priority in the 
queue. If FRWD-LNK of page 0 contains hex 80, it 
points to the auxiliary co-line. Relevent information 
is contained in pages 2 and 3. (FRWKD-LNK in 
page 2 always contains LINE-NO of the next lower 
priority line, or 1’s). 
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Byte 7, BKWD-LNK 


This field contains the LINE-NO of the next high- 
est priority line currently in the line queue. If this is 
the highest priority line, the field contains 1’s. 


Byte 8 and 9, TIMEOUT-L and 
TIMEOUT-M 


This field contains the timeout value associated 
with the currently executing NDL receive instruc- 
tion. 


Bytes 10 and 11, TIMER-L and 
TIMER-M 


This field contains a work area used by the man- 
ager timer routine. 


Byte 12 and 13, TRANSLATE-L 
and TRANSLATE-M 


This field contains the absolute D-word address of 
the translation table associated with the active sta- 
tion on this line or co-line. 
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Figure 11-2. Scratch Pad Memory Layout 


a ent 


Bytes 14 and 15, CRC-L/BCC and Byte 17, DDP-DESC 


aided This field contains the current copy of the DDP 
This field contains a work area used in calculating descriptor used by hardware. DDP-DESC is main- 
the BCC or CRC on this line or co-line. tained only in page 0, not in page 2. 


Byte 16, CHIP FREQ Byte 18, PARITY MASK 


This field indicates the line’s priority. It is main- This field contains a mask used in stripping the 
tained only in page 0, not in page 2. parity bit from incoming characters. 
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Byte 19, SYNC CHARACTER 


This field contains the sync character associated 
with the line or co-line. 


Bytes 20 and 21, TIMER2-L and 
TIMER2-M 


This field contains a work area used by the man- 
ager gross-timer routine. It is only used in page 0, 
not in page 2. 


Bytes 22 and 23, CONTINUE-L 
and CONTINUE-M 


This field contains an absolute D-word address 
used in connection with an NDL continue or receive 
(continue) instruction. 


Bytes 24 - 27, WORK1, WORK2, 
WORK3, WORK4 


These field are used as work areas by the S-OP 
microstrings. 


Byte 28, BIU-CHAR-4 


This field contains a set of flags used by DCP in- 
ternal routines. Bits and flags are: 
Bit Flag 


AUX-ACTIVE 
WAIT-FLAG 
AUX-FLAG 

IRF 
XMT-MODE 
RCV-MODE 
TIMER-ACTIVE 
BUFFER-FLAG 
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Byte 29, BIU-CHAR-5 


This field contains a set of flags used by DCP in- 
ternal routines. Bits and flags are: 


Bit Flag 
7 VERTICAL 
6 HORIZONTAL 
5 NO-TRANSLATE 
4 BITS 


3 FULL DUPLEX 
2 TRANSPARENT 
1 CASE-SHIFT 

0 BCC/CRC-FLAG 


Byte 30, BIU-CHAR-6 


This field contains a set of flags used by DCP in- 
ternal routines. Bits and flags are: 
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Flag 
INPUT-FLAG 
LN-CONTROL-FLAG 
RESERVE 
MOD-128 
SYNCS 
HORIZONTAL-ODD 
CRC-1 
SYNC/ASYNC 
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Byte 31, BIU-CHAR-7 


Flag 
NORESPONSE 
SPACE-AVAIL 
TIMER2-ACTIVE 
STA-NRY-PENDING 
LN-NRY-PENDING 
GEN-PURPOSE-C 
GEN-PURPOSE-B 
GEN-PURPOSE-A 


e 
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The following describes the contents of page | of 
scratch pad memory. Page 3 uses the same mne- 
monics but is for the full-duplex auxiliary line. 


Byte 0 and 1, S-PTR-L and 
S-PTR-M 


This field contains the absolute D-word address of 
the NDL S-OP in execution on this line or co-line. 


Bytes 2 and 3, COMMUNICATE-L 
and COMMUNICATE-M 


This field contains the absolute D-word address of 
the DC-LIT-REGISTERS. 


Byte 4 and 5, STATION-TAB-L 
and STATION-TAB-M 


This field contains the absolute D-word address of 
the station table associated with the active station on 
this line or co-line. 


Bytes 6 and 7, LINE-TAB-L and 
LINE-TAB-M 


This field contains the absolute D-word address of 
the line table associated with this line or co-line. 


Bytes 8 and 9, MESSAGE-HDR-L 
and MESSAGE-HDR-M 


This field contains the absolute D-word address of 
the first buffer of the message space currently being 
processed. 


Bytes 10 and 11, TERM-TAB-L 
and TERM-TAB-M 


This field has the absolute D-word address of the 
terminal table associated with the active station on 
this line or co-line. 


Bytes 12 and 13, TEXT-SIZE-L 
and TEXT-SIZE-M 


This field contains a working value used by the 
buffer storage routines. 


Bytes 14 and 15, BUFFER-SIZE-L 
and BUFFER-SIZE-M 


This field contains a working value used by the 
buffer storage routines. 


Bytes 16 and 17, CUR-BUF-L and 
CUR-BUF-M 


This field has the absolute D-word address of the 
DC buffer currently in use. 


Bytes 18 and 19, CUR-ADDR-L 
and CUR-ADDR-M 


This field contains the absolute D-word of the last 
used buffer data location. 


Byte 20, BUF-CHAR 


This field contains a work area used by the buffer 
storage routine. 


Byte 21, IN-CHAR 


This field is equivalent to the NDL character reg- 
ister. 


Byte 22, ACTIVE STATION 


This field contains the line relative station number 
of the station currently active on this line or co-line. 


Byte 23, LINE-CHAR 


This field contains a copy of the last character ex- 
actly as it appeared on the line (LCHAR). 


Bytes 24 - 27, SPM-TEMP-1, 
SPM-TEMP-2, SPM-TEMP-3, SPM- 
TEMP-4 


Each field is used as a work area by routines com- 
mon to both the S-OP and host-control sections of 
DCPP firmware. 


Bytes 28, 29, and 30, BIU-CHAR- 
0, BIU-CHAR-1, and BIU-CHAR-2 


Each field is used as a work area, mostly by the 
host control routines. 


Byte 31, BIU-CHAR3 


This field contains a set of flags used by DCP in- 
ternal routines. Bits and flags are: 
Bit Flag 
RESERVED 
VERTICAL-EVEN 
RESERVED 
RESERVED 
RESERVED 
RESERVED 
SHIFT1 
SHIFTO 
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SECTION 12 


CP 9500 
IMPLEMENTATION 


INTRODUCTION 


This section describes the implementation of CMS 
Data Communications on the CP 9500. This imple- 
mentation conforms to all specifications described in 
Sections 1 through 10. This section describes the 
method by which they are implemented, and those 
features unique to the CP 9500. 


The following information is intended as instruc- 
tions for those involved in design and implementa- 
tion of networks containing CP 9500 and for the 
interest of those wishing to develop an in-depth 
knowledge of CP 9500 Data Communications. Al- 
though much of the information contained within this 
section has no direct application for the programmer, 
a basic understanding will promote efficient system 
design and utilization of the CP 9500 in the data 
communication environment. 


The content of this section assumes a prior knowl- 
edge of CMS data communications; therefore, before 
continuing, the reader should be fully acquainted 
with the information contained in Sections | through 
10. Information relating to CMS will not, in general, 
be repeated in this section. The only exception to 
this is when restatement of information is considered 
useful for the purpose of clarification. 


This section is organized in two major parts. The 
first part deals with the steps required to prepare the 
CP 9500 for data communications execution. The 
second part deals with interface between the various 
components during execution. 


SYSTEM OVERVIEW 


The CP 9500 is a multi-processor system with each 
processor being dedicated to a specific function. One 
such function is data communication. The Data 
Communications Processor (DCP) is dedicated to 
this function. Either single or multiple DCPs are sup- 
ported by the Master Control Program. In the case 
of multiple DCPs, each DCP is assigned control of 
a subset of the total data communications network. 


Another function, to which a processor 1s 
dedicated, is that of executing applications pro- 
grams. This processor is known as the Task Proces- 
sor (TP). Data communications programs, written in 
either MPLII or COBOL, run on the TP. 


TPs and DCPs execute asynchronously, the over- 
all co odination being performed by the MCP. The 
CP 9500 has one processor, dedicated to the execu- 
tion of the MCP, known as the OS processor. The 
following are the major components of the CP 9500 
Data Communications Subsystem (DCS): 


. Data Comm Loader. 

. Data Comm Activity. 

. DCP Firmware. 

. Data Comm Buffer Memory. 
. DCS Tables. 

. DCS Queues. 
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Data Comm Loader (DCL) 


The DCL is the function of MCP which is respon- 
sible for: 


1. Loading DCP firmware into the DCP’s lo- 
cal memory. 

2. Creating tables within the OS processors 
memory for use by the DCA. 

3. Loading the required NDL tables into the 
DCP’s local memory. 

4. Formatting the preassigned memory space, 
known as data comm buffer memory, for use 
by the DCA and DCP firmware. 


Data Comm Activity (DCA) 


The CP 9500’s MCP is comprised of interdepen- 
dent modules, known as activities. The DCA is the 
activity responsible for providing the interface be- 
tween: | 


1. The data comm user programs and their 
supporting MCS. 

2. All data comm programs (including MCS) 
and the DCPs. | 


Within these interfaces the DCA must: 


1. Validate CMS communicates. 

2. Initiate DCP functions. 

3. Handle results of DCP execution. 

4. Perform housekeeping functions such as ta- 
ble maintenance. 
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Data Comm Processors (DCPs) | 


Each DCP executes under control of the firmware 
file generated by the NDL post compiler (NPC). All 
DCPs execute asynchronously to one another. 


The DCP provides the interface between the DCA 
and that subset of network devices which it con- 
trols. The DCP must control the physical interface 
with each data communications line during the trans- 
mission and reception of messages. These messages 
are transmitted and received, character by character, 
according to the NDL defined protocol. 


Data Comm Buffer Memory 


This memory is allocated for the use of the DCS. 
It consists of the buffers used to hold data comm 
messages. Once generated, a message remains in 
buffer’s memory until successfully transferred to its 
destination. During the transfer, the message may be 
linked to a number of different queues. Pointers re- 
quired to administer these queues, which may be ac- 
cessed by both DCA and DCP, must remain memory 
resident. These pointers reside in buffer memory. 


DCS Tables 


The DCS tables are divided into two categories. 
Those created by the DCL and only used by the 
DCA. When resident in memory, they are located in 
the OS processor’s memory. 


The NDL tables, created by the NDL compiler, 
define the characteristics of the data communications 
network. Of the NDL tables, only line and station 
tables reside in memory. These are loaded, by the 
DCL, into the DCP’s local memory. Information 
contained within all other NDL tables is accessed di- 
rectly from disk, as required. 


DCS Queues 


DCS queues are the major method of communica- 
tion between the various modules of the DCS. En- 
tries in all queues reside in buffer memory. Gener- 
ally, each queue has pointers to the first and last en- 
tries in the queue. Pointers to queues manipulated 
by the DCP only reside in DCP memory, those ma- 
nipulated by the DCA reside in OS memory, and 
those manipulated by both DCP and DCA reside in 
buffer memory. 
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IMPLEMENTING CP 9500 DATA 
COMM 


Using the CMS Data Comm Subsystem on a 
CP 9500 system involves three stages: 


1. Preparation. 
2. Initialization. 
3. Execution. 


The following paragraphs describe these stages 
briefly. (Each stage is described in detail later in this 
section. ) 


Preparation 


In the preparation stage, the user defines the phys- 
ical resources needed by data comm, and starts up 
the CP 9500 system so that these resources are avail- 
able. During the preparation stage, the following pro- 
grams must be executed: 


1. The CP 9500 configurer utility defines the 
physical resources that data comm needs (that 
is, the amount of buffer memory, number of 
DCPs). 

2. The CP 9500 Network Definition Language 
(NDL) Post Compiler (NPC) generates the mi- 
crocode files to be loaded into the DCPs. 

3. The CP 9500 Warmstart Utility loads the 
CP 9500 system’s firmware into its processors 
and starts execution. Warmstart also reserves 
the physical resources specified by the confi- 
gurer utility in the SYSCONFIG file. 

4. The data comm subsystem is not loaded 
until a Message Control System (MCS) pro- 
gram has been initiated. (NOTE: The actual 
loading of the MCS does not take place until 
after the data comm load module finishes.) 


Initialization 


Initiating a Message Control System (MCS) pro- 
gram causes the Master Control Program (MCP) to 
call upon the DCL module of its DCA to _ per- 
forms the following functions: 


1. Load each DCP microcode file to its 
physical DCP. 

2. Initialize data comm tables in reserved 
data comm memory. 

3. Return control to the MCP; if the DCL 
succeeded in loading data comm, the MCS 
that was initiated is now actually loaded. 


MCP activities assist DCL in initializing data comm. 


Execution 


When initialization is complete, the MCS controls 
the data comm subsystem by initiating the transfer 
of messages through the data comm interfaces pro- 
vided by the MCP. 


The DCA module is a major component in the 
control of message transfer. DCA is a resident MCP 
activity that controls the data comm portion of mem- 
ory and provides the interface between the DCP(s) 
and either a message control system or non-MCS 
data comm programs. 


DCP’s provide the interface between the terminal 
device and DCA. Each DCP is controlled by 
resident microcode whose function it is to accept 
and deliver messages within the network using non- 
interpretive line control and request procedures. 


SYSTEM CONFIGURATION 


In order to implement CMS data comm on the 
CP 9500, the following components are required: 


1. Hardware. 
2. Firmware 
3. Software. 
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Hardware 
Hardware consists of: 


1. OS Processor. 

2. Data Storage and Maintenance Processor 
(DS&M). 

3. One DCP. 

4. One TP. 


In addition to the previous hardware, the DCP 
must contain at least one Data Comm Interface 
(DCI) adapter. The DS&M must control at least one 
disk device. All other peripherals are optional and 
depend on application requirements. 


Firmware 


The firmware that controls a CP 9500 system con- 
sists of the following components (see figure 12-1): 


1. The Master Control Program (MCP) re- 
sides in the OS processor. Its responsibilities 
are: 


a. Controlling of all peripherals, except 
data comm and disk devices. 

b. Interfacing with the DSCP, which con- 
trols disk devices. 
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Figure 12-1. CP 9500 Firmware 
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c. Assigning user jobs for execution by 
interpreter control programs. 

d. Serving as the hub of all communications 
between processors. The OS processor can 
communicate with all other processors on 
the system, while it is the only processor 
with which any one of the others can com- 
municate. 


2. Each task processor is controlled by a copy 
of the interpreter control program. Each ICP 
operates independently of other ICPs on the sys- 
tem, and can only communicate with the MCP. 
All I/O required by user jobs is performed by com- 
municates issued between the ICP and the MCP. 

3. Each ICP supports either the COBOL or 
the MPLII interpreter, or both. At least one 
ICP must support MPLII. 

4. Each active DCP is controlled by a DCP 
firmware file generated by the CP 9500 NDL 
post compiler. 

5. Physical control of disk devices is managed 
by the Data Storage Control Program (DSCP), 
which resides in the Data Storage and Mainte- 
nance (DS&M) Processor. 


Software 


Certain programs and files must exist before 
CP 9500 data comm may be initiated. An MCS pro- 
gram is required together with an NDLSYS defining 
the communications network. The NDLSYS is used 
at load time to locate the firmware file for each 


DCP. Data comm application programs are optional | 


and dependent on system design. 


CP 9500 Unique Features 


This implementation supports the multiple MCS 
facility. Currently this facility is not available in 
CMS. Therefore, although many OS tables are de- 
signed around this facility, the interface within 
CMSNDL is not yet present and the facility may not 
be used. 


CP 9500 Preparation 


In order to prepare for the data comm execution, 
the following processes must be undertaken: 


1. Create/modify SYSCONFIG entering de- 
sired data comm parameters. This requires ex- 
ecution of the configurer utility. (See CMS 
SOG, form 2007258.) 

2. Warmstart the CP 9500. 

3. Compile the NDL source file eames 
the desired data comm network. 
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4. Execute NPC to produce the DCP firm- 
ware files. 
5. Execute the MCS program. 


NOTE 
The above is not necessarily in the ex- 
act order in which the steps must be 
performed. However, step | must pre- 
ceed 2, 3 must preceed 4, and all must 
preceed 5. 


The following paragraphs describe each step in de- 
tail. (Refer to figure 12-2 for system states during the 
various stages of preparation.) 


SYSCONFIG 


This file is required by WARMSTART and con- 
tains certain fields pertaining to CP 9500 data comm. 
These fields may be modified using the configurer 
utility. For complete instructions on configurer 
execution, refer to the CMS Software Operations 
Guide. The following describes the SYSCONFIG 
fields relevant to data communications. 


Data Comm Buffer Memory Size 


Warmstart reserves an area of memory known as 
OS buffer memory. This field specifies the amount 
of area to be reserved for data comm use. This 
amount must be sufficient in size to accommodate 
the buffers declared in NDL. The formula for com- 
puting this requirement is ACISEUSSEC later in the sec- 
tion. 


DCP/TP Assignment 


In NDL, the programmer refers to DCPs via the 
logical DCP number (0-n). SYSCONFIG allows as- 
signment of physical processor (processor bus ad- 
dress) to logical DCP number. The assignment of 
DCPs is related to TP assignment. The following 
possibilities exist: 


1. The user assigns only TPs. Any processor 
not assigned remains unassigned and cannot 
be used in this situation. The user may not re- 
quire DCPs and may assign them as TPs. 
2. The user prefers to leave the assignment of 
processors to DEFAULT. In this case, all 
processors with DCIs are assigned as DCPs; 
all others as TPs. DCP logical-to-physical re- 
lationship is produced by allocating the as- 
cending order of the logical DCP number to 
the descending order of the bus address. For 
example: DCP bus address 7 becomes logical 
DCP 0, and DCP bus address 6 becomes 
logical DCP 1. 


DISK OS PROCESSOR TP TP 


; |. 7 i 


DISK DCP 
AFTER WARMSTART a 
DATA COMM 
BUFFER 
| MEMORY 
RESERVED 
FOR 
DATA COMM 
MPLII 
AFTER NDL on MCP ICP DCP 
COMPILATION RESERVED 
Sdaetil libs gsrlpticlchi 
BUFFER 
pernar MEMORY 
RESERVED 
FOR 
}McS DATA COMM 
| MPLII 
AFTER DATA COMM 
INITIALIZATION (MCS LOAD) sana ICP Dep 


SYSRECON 


NDLSYS 
DATACOMM 
ACTIVITY 


Figure 12-2. CP 9500 Preparation and Initialization 
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Warmstart 


Warmstart uses the parameters in SYSCONFIG to 
reserve data comm resources. If SYSCONFIG is 
changed, the CP 9500 must be warmstarted in order 
to invoke these changes. Once invoked, all 
parameters remain in effect until the next warmstart. 


If an error is encountered during warmstart (which 
prevents the SYSCONFIG parameters from being 
used) the DEFAULT processor assignment as de- 
scribed is actioned. Such errors include the fol- 
lowing: 


1. The processor at bus address N does not 
have a DCI or does not exist. 
2. No TP was assigned. 


After warmstart, all assigned DCPs are reserved 
exclusively for data comm use; that is, they cannot 
be dynamically loaded with ICP firmware. 


NDL Compilation 


The major requirement for this phase is related to 
the fact that NDL on the CP 9500 is non-interpre- 
tive. Therefore, a DCP firmware file must be defined 
for each required DCP. The definition of each file is 
used by NPC in generating that file. This subject is 
covered in detail in the CMS Network Definition 
Language Reference Manual. 


NPC Execution 


This process generates the required DCP firmware 
files to be loaded at data initiation. This subject is 
covered in detail in the CMS Network Definition 
Language Reference Manual. (Form 1090925) 


CP 9500 DATA COMM INITIATION 


The MCP module responsible for data initiation is 
the DCL. As stated previously, MCP is divided into 
modules, known as activities. There is a considera- 
ble degree of interaction between these activities. 
DCL interfaces with the following activities: 


1. Job Management (JM). 
2. Data Access (DA). 
3. Monitor (MN). 


The following paragraphs describe how and when 
this interaction takes place. 
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DCL Job Management Interface 
MCS Load 


Job management is responsible for loading all 
CMS programs, including data comm programs. 
Data comm Is initiated upon execution of an MCS. 
Job management recognizes that the requested pro- 
gram is an MCS. After having determined that the 
MCS can be accommodated, JM invokes DCL with 
wait. The MCS name, task-id, and Message Refer- 
ence Area (MRA) size are passed as parameters to 
DCL. 


After DCL performs its functions, it returns con- 
trol to JM which continues the MCS load. 


Non-MCS Data Comm Program Loads 


DCL is required only when initiating the DCS. 
When loading non-MCS data comm programs, JM 
invokes an action of the DCA (DC-JOB-LOG). This 
action is invoked after the program has been loaded 
but before it begins execution. The purpose of this 
action is to record the fact that this task-id is now 
valid. The task-id is passed as a parameter to DC- 
LOG-JOB. 


Job management is responsible for invoking the 
DC-EOJ when either an MCS or non-MCS data 
comm program terminates. 


DCL Data Access Interface 


DCL uses data access for all disk-to-memory or 
memory-to-disk transfers required during the load 
process. Also data access is called to allocate the re- 
quired portion of buffer memory for data comm use. 


DCL Monitor Interface 


Monitor is used by DCL to obtain information on 
the processor assignments made at warmstart. 
Monitor provides DCL with the physical-to-logical 
DCP relationships and also the local memory size of 
each DCP. 


DCL PROCESS 


At the most general level, DCL performs the fol- 
lowing functions. 


1. Loads the DCP firmware files and NDL ta- 
bles into their assigned DCP memories. 

2. Creates tables in OS processor memory for 
use by the DCA. 


3. Initializes pointers in buffer memory for 
use by DCA and DCP. 

4. Formats the remainder of DC buffer mem- 
ory into buffers according to NDL specified 
parameters. | 


DCL then starts each DCP via a CLEAR command 


followed by an UNFREEZE. (These commands re- 
late to the processor interface control hardware.) 


DCL invokes monitor to mark each DCP as being 
in one of the following states: 


1. Loading. 
2. Running. 
3. Available. 


DCL determines whether the buffer space pro- 
vided by DA buffer allocation is sufficient for the 
data comm subsystem to function. DCL declares a 
successful load if sufficient memory space is avail- 
able for both the reserved data comm pointer area, 
and the minimum number of buffers requested by 
the NDL programmer. If the space is insufficient, 
DCL aborts the load and issues an error message to 
the operator indicating the failure. 


Data Comm Load Input 
DCL requires the following input files: 


1. NDLSYS. 
2. DCP Firmware File(s). 


Succeeding paragraphs describe these files. 


NDLSYS File 


NDLSYS contains all tables and microcode file 
names needed to load and operate the data comm 
subsystem. Once opened by DCL, NDLSYS re- 
mains open until the MCS goes to EOJ. Until 
closed, none other than the current NDLSYS file 
may be used. DCL stores this file’s FIB in the DCA 
buffer memory tables. 


DCL uses the NDLSYS file to: 


1. Determine whether the MCS is allowed 
with the particular NDLSYS. 

2. Construct a copy of the NDLSYS file’s 
Data Segment Table (DST) in DCA memory. 
(NOTE: Data segments in NDLSYS are num- 
bered beginning at 1; DCA routines consider 
the first segment to be segment 0. The DCA’s 
copy of the DST is adjusted to compensate.) 
3. Reference the list of DCP firmware files 
named in NDLSYS to be loaded into the 
physical DCPs according to assignments re- 
ported by monitor. 

4. Load the line and station tables into the 
DCP’s memories. 


DCP Firmware Files 


NPC generates one microcode file for each DCP 
specified by the NDL programmer in the DCP termi- 
nal statement. DCP microcode files consist of sec- 
tions of code which DCL loads into the low order of 
DCP memory, and tables and other data variables 
which are loaded into the high order area. NPC em- 
beds a date stamp, random number, code length, and 
data size pointers in the first sector of each code 
file. DCL uses the date stamp and random number 
to match each file with the NDLSYS file used to 
create it. 


The DCP firmware files are placed in DCP mem- 
ory directly from disk via DA. Tables destined for 
the DCP are loaded from MCP memory to DCP 
memory. 


The following describes DCP firmware file attri- 
butes: 


FILETYPE: @17@ 

RECORD: 180 BYTES 

BLOCK: 180 BYTES 

FILE NAME: As per DCP Terminal 


Statement in NDLSYS. 
TRUE 

Maximum address of the 
generated. microcode. 


SINGLE AREA: 
FILE SIZE: 


Data Comm Load Output 
DCL produces the following output: 
1. Initialized DCP memories. 
2. DCA tables. 


3. Buffer memory space for pointers. 
4. SYSRECON file. 


DCP Memory 


The following depicts the DCP layout: 


@0000@ 
RESERVED MEMORY 
@0160@ 


Data Comm Activity Tables 


DCL initializes the following tables in MCP mem- 
ory for DCA’s use: 


ABSOLUTE | DC_DATA 
FILE INFORMATION BLOCK 


VIRTUAL 


MESSAGE REFERENCE AREA 


Buffer Memory 


Buffer memory space is contiguous within a page. 
If more than one page has been specified, the pages 
are linked together. A pointer to the first page of the 


data comm buffer area is stored in ABSOLUTE-. 


DATA area DC-DATA (in the DC-BUFF-MEM- 


ADDR field) of DCA memory. The first two bytes. 


of the buffer area contain the length of this memory 
page. The next four consecutive bytes contain the 


MEMORY 


= a 


DC BUFFERS 


@FFFF@ a @FFFF@ 4 
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link address to the next page (if one exists). The link 
address of the last page of buffer memory contains 
a *‘1’’ in each bit. (See figure 12-3.) | 


The data comm pointer area can range from a 
minimum of 31 bytes to a maximum of 
approximately 2,700 bytes. This variability is de- 
pendent on the number of subnet queues used by a 
given system. The breakdown of the DC-POINTER- 
AREA use is as follows: 


Minimum Maximum 
ABP = 12 bytes => 12 Bytes 12 Bytes 
RESULT—Q = 10 Bytes => 10 Bytes 10 Bytes 
REQUEST-Q = 9 Bytes Times => 9 Bytes 81 Bytes 
Highest Physical 
DCP = 
SUBNET—Q = 10 Bytes Times => 0 Bytes 2550 Bytes 
TOTAL 31 Bytes 2653 Bytes 


The size of data comm buffers is defined in NDL. 
However, the CP 9500 uses four-byte rather than 
two-byte buffer links. In order for the text capacity 
of the data comm buffers to equal that of other CMS 
systems, DCL creates buffers four bytes larger than 
specified in NDL. The buffer size variable in abso- 
lute memory reflects this modified size. Depending 
on the amount of textual data to be contained within 
a message, multiple buffers may be used to accom- 
modate a message. 


MEMORY MEMORY 
PAGE PAGE 
@0000@ | 


a @FFFFFFFF@ 
| DC BUFFERS 


@FFFF@ 


DC BUFFERS. 


Figure 12-3. DC Buffer Page Linkage 
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SYSRECON File 


DCL copies all station and line tables from the 
NDLSYS file into the SYSRECON file. During 
execution, the data comm subsystem references 
SYSRECON for the network configuration. If the 
configuration should change, SYSRECON is altered. 


Figure 12-4 depicts SYSRECON file contents. 


RANDOM NUMBER 2 BYTES 
NDLSYS DATE 6 6BYTES 


TEMP/PERM FLAG 1 BYTES 
LINE SEG PTR 2 BYTES 
LINE SEG LENGTH 2 BYTES 
LINE DISPLACEMENT PTR 2 BYTES 


LINE DISPLACEMENT LENGTH 
STATION SEG PTR 

STATION SEG LENGTH 
STATION DISPLACEMENT PTR 
STATION DISPLACEMENT LENGTH 2 BYTES 
RESERVED 155 BYTES 


LINE SEGMENT 


LINE DISPLACEMENT SEG 


STATION SEGMENT 
STATION DISPLACEMENT SEG 


Figure 12-4. SYSRECON File Contents 


2 BYTES 
2 BYTES 
2 BYTES 
2 BYTES 


At initial load time, DCL builds a disk file contain- 
ing all NDL defined lines and stations, effectively 
making a copy of the line table and station table seg- 
ments from the NDLSYS file. This SYSRECON file 
is initially OPENed, then CLOSED, then OPENed 
again. This is to guarantee that in the event of a need 
to recover from a system failure, the file has been en- 
tered into the disk directory. 


The RANDOM NUMBER from NDLSYS is 
placed at the beginning of this file. A byte to indi- 
cate whether this file is to be saved when the MCS 
goes to EOJ is also included. This byte is set when 
this SYSRECON file is to be saved. At MCS EOJ 
time, the file is either PURGED or CLOSED with 
LOCK, depending on this indicator. This implemen- 
tation allows the system to recover up to the last 
system table configuration. It may be necessary to 
do this when: 


1. The MCS has made a change to the system 
which it wants to save. (Example: without 
having to recompile NDL.) In this case, sub- 
sequent LOAD should reflect this change. 


2. When a DCP table memory parity error oc- 
curs and the MCS wishes to recover by re- 
loading tables. 

3. When the system has been halted because 
of a hardware failure and it is necessary to 
RESTART. 


At initial load time, if a SYSRECON file already 
exists on the system drive, and if it matches the 
NDLSYS file, the DCL loads from the NDLSYS or 
SYSRECON file depending on the RECOVERY in- 
dicator. If RECOVERY is not required, a new SYS- 
RECON file is created. If, however, the existing 
SYSRECON file does not match the NDLSYS file, 
DCL purges the existing file, loads the NDLSYS 
file, and creates a new SYSRECON file. If no SYS- 
RECON file exists at initial load time, DCL simply 
loads the NDLSYS file, and creates a new SYRE- 
CON file. 


Data Comm Load - Flow of 
Control 


DCL flow of control proceeds as follows: 


1. Open NDLSYS, read data, and build NDL 
table. 

2. Create DCP and DCP-conversion tables, 
and determine which DCPs are on the system. 
3. Create MCS-ID, MCS name, and MCS ta- 
bles in the DCA. 

4. Allocate buffer memory space for queue 
pointers, and initialize the Available Buffer 
Poll (ABP). 

5. Build the LLN-conversionw table in DCA 
memory, read the line tables from disk, trans- 
fer the line table to the DCP, and build the 
line data area. 

6. Build the LSN-conversion and LSN-infor- 
mation tables in DCA memory, read the sta- 
tion tables from disk, and transfer the station 
tables to the DCP. 

7. Build the subnet information table and the 
user jobs table in the DCA. 

8. Remove the old SYSRECON file (if one 
exists), open a new SYSRECON file, fill in 
the file directory, transfer line and station ta- 
bles from NDLSYS to SYSRECON, close the 
file lock, and open again. 

9. Build the MRA link block and place a 
pointer in the MCS table. 

10. Start the DCP by issuing a CLEAR and 
UNFREEZE for each DCP and inform the 
monitor. 


The following paragraphs describe the individual 
DCL procedures. 
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LOAD-ACTION 


Store parameters passed from JM. Check MCS- 
LOADED (declared in MIDL) to see if this is the 
_ first MCS on the system. If not, call VALIDATE- 
MCS and SET-UP-MRA. If it is the first MCS, call 
TEST-FOR-RESTART. If this is a restart, execute 
RESTART-PROC (permanent) reconfiguration. If 
not, execute OPEN-NDLSYS, BUILD-NDL-TA- 
BLE, BUILD-DCP-TABLES, CREATE-MCS-TA- 
BLES, VALIDATE-MCS, FORMAT-BUFF-MEM, 
SEND-DCP-FILES, SET-UP-MRA, and START- 
DCP. If the load should fail, call DEALLOCATE- 
LB, and set up the FCM with the appropriate event 
number. 


OPEN-NDLSYS 
Allocate a 19-byte workblock and fill it with 
‘“NDLSYS------ .’ Set pack ID to 000000 and invoke 


OPEN-SYSFILE with WAIT. When control returns, 
store FIBID. Allocate and freeze a 182-byte buffer 
workblock. Read-in the program parameter block. 
Check the priority class and store the data segment 
table length and address, and the date of 
compilation. 


BUILD-NDL-TABLE 


Read NDL data segment table from disk. Store 
line, line displacement, station, station displacement, 
preset, MCS line, MCS file, and MCS name pointers 
used by DCL. Allocate the NDL data linked block 
and store the disk address/length of the modem, ter- 
minal, file, extended station, extended terminal, sta- 
tion name, file name, and DCP terminal format B ta- 
bles. Read the NDL preset area from disk. Put 
modem and terminal counts, station table size, and 
NDL complete date into the NDL data linked block. 
Multiply the buffersize by two and store the result 
in an absolute variable. Put DCP limit, station, 
subnet, and line counts into ABSOLUTE-DATA 
variables. Store the minimum buffer count locally to 
DCL. 


BUILD-DCP-TABLES 


Create/initialize the DCP conversion and DCP 
linked blocks to binary ones, and initialize file name 
to blanks. Invoke monitor to determine the numbers 
of all processors that are physically potential DCPs. 
Determine whether NDL has a load file for each 
DCP. If so, fill the DCP table with the file name and 
physical DCP number. Put the relative DCP number 
in the DCP conversion table. 


CREATE-MCS-TABLES 
Initialize the MCS-ID table in ABSOLUTE-DATA 
to binary ones. Get a linked block for the MCS- 


NAME table and read it in from disk. Get a linked 
block for the MCS-TABLE and initialize it. 
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VALIDATE-MCS 


Check the MCS-COUNT in MCS-NAME table; if 
it is @FF@, then any MCS name is valid, but only 
one MCS is allowed. Enter the job name, passed 
from JM, in the MCS-NAME ttable. Assume that 
there are always MCS-COUNT (non-zero) names in 
the table. If the MCS-COUNT is not binary ones, 
compare the MCS-NAME passed from job manage- 
ment with each entry in the MCS-NAME table. For 
each match, check the entry in the MCS-ID table to 
see if this relative MCS number is already being 
used. If not, this MCS is valid; enter the relative 
MCS number into the MCS-ID table. 


FORMAT-BUFF-MEM 


Calculate the minimum amount of space needed 
by data comm in unattached memory. Compare the 
minimum requirement with the amount available 
(specified by SYSCONFIG). If the available memory 
is equal to or greater than the amount required, con- 
tinue the load; otherwise, return an ERROR result 
indicating that the DC-LOAD has been aborted. In 
buffer memory, create DCP-COUNT request 
queues, SUBNET-COUNT subnet queues, and a re- 
sult queue. Fill in pointers in DC-POINTER-AREA 
memory. Use the remaining space for the available 
buffer poll. Fill in the first four bytes of each buffer 
link; the rest of the buffer is undefined. Fill in the 
HEAD, TAIL, and COUNT pointers in DC-POINT- 
ER-AREA of memory. 


SEND-DCP-FILES 


Test each DCP to see if it is valid. Call OPEN- 
DCP-FILE and store NPC-DATA-SIZE. Calculate 
the amount of DCP memory needed. If there is 
enough physical memory, and if the compiled ran- 
dom numbers of the NDL and DCP files match, call 
LOAD-DCP-FILE. When finished, check to see if 
the DCP has been loaded. If not, generate a message 
to Operator Interface (OJ); call monitor to mark the 
DCP ‘‘DEAD’’; delete its entry in the DCP tables. 


OPEN-DCP-FILE 


Allocate a 19-byte workblock. Invoke OPEN-SYS- 
FILE and store the FIBID. Read/store the first sec- 
tor of the DCP file (the file pointers). 


LOAD-DCP-FILE 


Using DA, load the code into DCP memory, then 
close the file. Place the MCP processor number, this 
processor’s number, a READ and a RWL word, 
pointers to the request, result, and available buffer 
poll queues, and the starting address of the table into 
DCP memory. 


SEND-LINE-TABLE 


Allocate a linked block for the LLN conversion 
table of size (LINE COUNT * bytes per LLN en- 
try). Freeze buffer workblock and read into it the 
line displacement list from the NDLSYS file. Get a 
workblock, freeze it, and read in the NDL segment 
containing the logical line states. Allocate a 720-byte 
workblock, freeze it, and read the first four sectors 
of line tables. For each line table, calculate its 
length, check that its logical processor number is 
valid, and that its physical line number is in range. 
If valid, update the port number within the line table 
(adjustment for PI in port #0), calculate the physical 
processor number, and place it into the LLN con- 
version block. Place the line table into DCP mem- 
ory. Put the line table’s address in the LLN conver- 
sion table. Put the line data field in DCP memory, 
_and adjust its internal addresses. Insert the MCS log- 
ical line station into the line data field, and place the 
data field’s address into the DCP code. If the line is 
full-duplex, place a second line data field into DCP 
memory. If the DCP is invalid and if unloaded into 
the processor field of the LLN conversion table, en- 
ter @FFFE@. When a partial line table remains at 
the end of a workblock, move the partial table to the 
beginning followed by enough new sectors to fill the 
workblock. Continue processing line tables until fin- 
ished. Then, free the line table workblock and thaw 
the buffer block. Send a dummy line table to each 
DCP for port #0. Prefix the dummy line table with 
a line data field and set the pointers. 


SEND-STATION-TAB 


Allocate linked blocks to hold the LSN conversion 
and the LSN information tables. Freeze the buffer 
block and read in the first sector of the station dis- 
placement list. Allocate and freeze a 254-byte 
workblock. Read the first sector of station tables 
into the workblock. For each station table, initialize 
its entry in the LSN information and the LSN con- 
version tables, and determine if the station can be 
loaded. If the station can be loaded, calculate the ta- 
ble size. Transfer MCS information from the station 
table to the LSN conversion table. Send the station 
table to DCP memory. Change the queue pointers to 
binary ones, take the two’s complement of active 
transmit and initiate receive delays, and fill-in its ad- 
dress in the line table and the LSN conversion table. 
If the station cannot be loaded, enter @FFFF@ (if 
unattached) or @FFFE@ (if unloaded) into this sta- 
tion’s LSN conversion processor field. Enter the sta- 
tion’s SYSRECON disk address into the station ta- 
ble address field in the LSN conversion table. If the 
bottom of the displacement list is reached, read in a 
new sector. If a partial station is left at the end of 
the workblock, move the partial station to the be- 
ginning of the workblock and read in a new sector 
of station tables after it. Continue processing until all 
stations are handled, at which time both the station 
workblock and buffer block are free. 


SET-UP-MCS-TAB 


Allocate and zero-out the linked block for the user 
job table. Read the MCS file information from the 
NDLSYS file, create the subnet table, and insert the 
MCS data. 


SET-UP-SYSRECON-FILE 


Get a workblock to hold the SYSRECON file di- 
rectory. Calculate the length desired for the SYSRE- 
CON file, and open a file that size. For each seg- 
ment, enter the segment address and length in the di- 
rectory, then transfer the segment from NDLSYS. 
When complete, write the directory to disk and 
close, then re-open the file, storing the FIBID into 
the NDL table. 


SET-UP-MRA 


Create MRA linked block of size specified at DC- 
LOAD invoke time; zero it out. The MRA size pa- 
rameter is not tested to see if it is too large. The 
MCS table is updated with the MRA block-ID and 
the MCS taskOID. 


START-DCP 


Scan the DCP table for successfully loaded DCPs. 
Clear, unfreeze, and mark as ‘““RUNNING”’ each 
successfully loaded DCP. 


DEALLOCATE-LB 


If the load fails, determine which MCP linked 
blocks have been allocated, and free them. 


DATA COMM EXECUTION 


When DCL process is completed, the CP 9500 is 
ready to begin executing data comm functions. Their 
functions are requested by data comm applications 
(MCS and non-MCS) and performed by the DCA 
and DCP firmware. Figure 12-5 shows the message 
flow as controlled by the DCA. Figure 12-6 shows 
the distribution of data comm functions and loca- 
tions of tables and queues. 


The following constitute the major processes in- 
volved in data comm execution: 


. Data Comm Interfaces (MCP Activities). 
. Data Comm Activity. 

. Data Comm Processors. 

. Buffer Management. 
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Figure 12-5. Message/Communicate Flows 
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Figure 12-6. CP 9500 Data Comm Subsystem 


Data Comm Interfaces 


The DCA interfaces with the following MCP activ- 
ities: 


1. Processor Interface. 
2. Data Access. 
3. Monitor. 


Processor Interface 
Processor Interface (PI) uses a mailbox technique 


to deliver requests/results from one processor to an- 
other. PI code exists on all types of processors. 


The PI code for DCP is generated by NPC. PI is 
not the major method by which the DCP communi- 
cates with the OS processor; therefore, DCP PI code 
is much simplier than that of other processors. 


Data Access 


Data access is used, by DCA, for file access, that 
is, NDLSYS and SYSRECON. 


Monitor 


If the firmware executing within the DCP detects 
an error, it performs a register dump to the save 
state area in DCP reserved memory, then freezes the 
processor. The monitor activity periodically tests the 
error status of each DCP. When a DCP is frozen, 
the monitor performs a dump of DCP memory and 
reports the DCP error to the operator. 


Data Comm Activity 


The following paragraphs describe the MCP’s data 
comm activity. DCA controls all message flow 
within the CP 9500. All CMS communicates de- 
scribed in Sections 1 through 9 are validated and 
performed by the actions of the DCA. 


The DCA requires access to all NDL tables (both 
in memory and on disk) and all queues. The DCA ta- 
bles provide this access. A very small area of abso- 
lute data (always memory resident) exists for the 
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Field Length 


Name Bytes 
Reload header count 1 
MCS loaded 2 
DCP limit 1 
Buffer size 2 
Station count 2 
User DC log 4 
Subnet count 1 
Line count 1 
MCS ID table 32 
Buffer memory address 4 
Buffer queue address 4 


— 


EOJ action ID 


Description 


Count of line marks returned by DCP 

Number of MCS programs loaded 

Highest numbered logical DCP 

NDL buffer +4 

NDL total stations 

Each bit on represents a task-ID (0-31) currently executing 
NDL total lines 

NDL total lines 

Converts task-id to relative MCS number 

Pointer to the first page of buffer memory 

The start of the queue pointer in buffer memory 

The action to be invoked when a data comm program terminates 


Figure 12-7. DCA Absolute Data 


DCA (see figure 12-7). The majority of DCA data ex- 
ists in the form of linked blocks. Each linked block 
is a data segment and subject to MCP virtual mem- 
ory handling. An action of the DCA wanting to ac- 
cess a linked block must call an activity management 
routine in order to locate the linked block. The fol- 
lowing describes each linked block used by the 
DCA. 


User Jobs 


This linked block contains an entry for each task 
runnable on the system. This table is 32 entries in 
length. The USER-DC-LOG in absolute memory 
identifies which of these tasks are currently active. 


Subnet Info 


There is one entry for each subnet declared in the 
NDLSYS file. If no subnets are declared, this linked 
block is not created. The length of this table is 
stored in the SUBNET-COUNT field in the ABSO- 
LUTE-DATA area. 


MCS Table 


This table contains an entry for each MCS runna- 
ble in the system. It is indexed by relative MCS 
number and contains information regarding that 
MCS. The length of this table varies and depends on 
the number of MCSs declared in NDL. 


LSN, LLN Conversion 


The LSN conversion table contains the station ta- 
ble addresses. The LLN conversion table contains 
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the line table addresses. Each address is a four-byte 
field consisting of the following: 


2 BYTE 
2 BYTE 


PROCESSOR 
ADDRESS 


When the table resides in memory, the address is 
an absolute address of the table’s location. Unat- 
tached stations and lines and those stations associ- 
ated with an unloaded DCP, however, reside on disk 
rather than in memory. For these, the processor and 
address fields have different meanings. The address 
field is a word offset of the table location in the 
SYSRECON disk file. For stations, the address field 
is an offset into the station segment; for lines, the 
address field is an offset into the line segment. The 
processor field is set to @FFFF@ to indicate an 
unattached station, and is set to @FFFE@ to indi- 
cate an unloaded line or station. 


DCP Conversion 


This table contains an entry for each possible 
DCP. It is indexed by the physical processor number 
and is used to convert to logical DCP number. 


NDL Data 


This linked block contains information stored from 
the NDLSYS file at load time. This area is 47 bytes 
in length. 


MCS Name 


This table is copied at load time from the 
NDLSYS file. It contains the count and names of all 
the MCSs able to run with this NDLSYS file. The 
table is also present for a single MCS system, in 
which case it is 20 bytes of @FF@. 


MREF Area 


One MREF area linked block is created at each 
MCS load time, and deallocated with that MCS’s 
EOJ. The size of this area is passed to DCL by job 
management from the Program Parameter Block 
(PPB). 


The message reference area for each MCS is set 
to all binary ones at MCS load time. When a mes- 
sage pointer is released from the message reference 
area, the PROC/PAGE fields of the address are set 
to @FFFF@. Thus, a null message reference is one 
in which at least the first byte is @FF@. Figure 12- 
8 shows the relationship between the various MCS 
linked blocks and absolute data. 


DCA Initiation 


When an ICP issues a request for a communicate 
to be performed, PI-SEND is INTERRUPTed with 
a mailbox containing the Communicate Parameter 
Area (CPA) for the requested communicate. PI- 


ABSOLUTE | 


MCS 
MCS ID RELATIVE 
MCS NO. Eee 
TASK NO. MCS 
QUEUE 
INFO 


MCS NAME 
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OS MEMORY VIRTUAL | 


SEND interrupts PI-RECEIVE on the MCP. PI-RE- 
CEIVE fills its communicate area with the contents 
of the mailbox passed, and invokes the action passed 
to it by PI-SEND. For a DCA action, this ID is a 
NULL-ID. When INVOKE sees the null ACTION- 
ID, it decodes the communicate’s verb and com- 
pletes the invocation of the verb action specified. 
This procedure minimizes the action time devoted to 
a possible invalid verb type in the MCP. 


Action Level Interfaces Within 
DCA 


MCP Task State - Suspend, Reinstate 


Frequently, DCA actions must wait until some ex- 
ternal event occurs (RECEIVE a message), or until 
a system resource deficiency has been resolved 
(MESSAGE SPACE AVAILABLE, 
COUNT/LIMIT, and so on). To ensure that no two 
DCA actions either trv to resolve or check for reso- 


BUFFER MEMORY 


MCS INPUT QUEUE 


MREFS 


FETCH 
MESSAGE 
j 


Figure 12-8. MCS Tables 
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lution of a waited condition, DCA enqueues actions 
to one of the following queues, each of which re- 
flects a pending state: 


DC-WTG-INPUT-Q => 
DC-WIG-COUNT-Q. => 
DC-WTG-SPACE-Q => 
DC-WTG-RCV-Q => 
DC-WTG-OUTPUT-Q => 
DC-LOAD-EOJ-Q => 
DC-SYSRECON-Q => 


If the condition in question requires the DCA ac- 
tion to wait, the DCA action sets a task suspension 
flag for the task that initiated the action. The action 
then yields the processor, anticipating another DCA 
action that will resolve the condition for which it is 
WAITed. 


When an ICP directs DCA to restore a system re- 
source, or receives notification that the required ex- 
ternal event has occurred, the DCA action: 


1. Enqueues itself to the queue corresponding 
to the condition it must resolve, and 

2. Checks for any task WAITed on that con- 
dition. 


If a task has been waited, the DCA action then: 


1. Changes the state of the flag(s), indicating 
resolution of the condition causing the wait. 
2. Determines the particular action suspended 
while executing the previously waited task. 
3. Reinstates that action. 


Figure 12-9 shows the pending states within the 
DCA and the associated actions. 


DCA Accesses to DCP Tables 


DCA uses the LSN conversion table to determine 
station table addresses and an LLN conversion table 
to determine line table bases. 


CP 9500 data comm maintains the station AT-. 


TACH and WAIT status in two 32-bit fields in the 
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For actions concerned with the presence of a message on the MCS queue 

For actions concerned with the number of messages a task may send a station 
For actions concerned with the presence of message Space within the DCA 

For actions concerned with the presence of a message on a Subnet Queue 

For actions concerned with the number of messages a task may send to the MCS 
To ensure that the LOAD and EOJ do not run sacnacaes 


To prevent any LINE ACCESS while system reconfiguration is in progress 


DCA tables (versus the station table as defined for 
B 776). The output routing indicator (run mode bits 
in B 776) is maintained as a byte field in the DCA 
tables. 


Disallow Input, Disallow Output 


If a task is suspended waiting input from a subnet 
queue and the MCS issues a DISALLOW INPUT 
for that task and subnet queue, the task is reinstated 
when the DISALLOW is done. 


If a task is suspended waiting for an output count 
to decrement when a DISALLOW OUTPUT com- 
municate is issued, the task is reinstated when the 
DISALLOW is done. 


Route Output 


If output routing is changed while a SEND com- 
municate is suspended waiting for message space, 
the message is sent to the previous routing after 
space is obtained. 


Station Routing 


If routing for a station is changed from a subnet 
to the MCS (ROUTE INPUT, DETACH STA, RE- 
LEASE STA), a task waiting input from that subnet 
is not reinstated even if this was the last station 
routed to the subnet. The MCS must either detach 
the task from the subnet (DISALLOW INPUT) or 
route another station’s input to that subnet (ROUTE 
INPUT). 


State 


WAITING OUTPUT 


WAITING SPACE 


WAITING ATTACH 


WAITING INPUT 


WAITING COUNT 


WAITING INPUT 


Set By Suspends 
SEND TASK 
SEND TASK 
COMMON-HDR 
ENABLES/ 

DISABLE 

ATTACH-Q 

ATTACH-Q TASK 

ATTACH-STA 

FETCH-MSG TASK-ID 
FROM MCS 
TABLE 

SEND TASK 

RECEIVE TASK 


Reset By 


CONTINUE.TASK 
SET.OUTPUT.LIMIT 


RELEASE BUFFS 
CLEAR 

FETCH.MSG 
GET.MSG.SPACE 
DISALLOW.OUTPUT 


ALLOW/DISALLOW 
INPUT/OUTPUT 


Q-TO-MCS 

QUEUE 
ROUTE.INPUT 
ROUTE.OUTPUT 
RESULT FUNCTION 


SET.QUEVE.LIMIT 
RESULT FUNCTION 
DISALLOW.OUTPUT 


Q-TO-SUBNET 
QUEUE 
ROUTE.INPUT 
DISALLOW.INPUT 


Figure 12-9. Pending States 


Queue Count/Limit Maintenance 


Unprocessed Input Count/Input 


Limit Set: 


Count Incremented: 


Count Decremented: 


Location: 
Checked: 


Initialized to 2 by the 
NDL compiler SET 
INPUT LIMIT 
communicate. 


By the RESULT 
function when an input 
message is queued to an 
MCS queue and by 
ROUTE.INPUT when 
rerouting messages from 
subnet to a new 
subnet/MCS queue. 


CONTINUE STATION 
communicate and by 
ROUTE.INPUT when 
rerouting input messages 
from MCS to a subnet 
queue. 


Station table. 


By DCP during 
execution of GETSPACE 
function. 


Count Incremented: 


Count Decremented: 


Location: 


Checked: 


Reinstates 


TASK-ID 
FROM CPA 


ALL 
TASKS 
WAITING 


(TASK-ID) 


TASK-ID 


TASK-ID 
FROM MCS 
TABLE 


ALL TASKS 
WAITING 
TASK-ID 


ALL 
TASKS 
WAITING 
TASK# 


Subnet Queue Count/Limit 
Limit Set: | 


Initialized to 2 by the 
NDL compiler SET 
QUEUE LIMIT 
communicate. 


When the result function 
queues to a subnet 
queue. 

When an MCS reroutes 
messages to a subnet 
queue. 

When an MCS queues a 
message to the subnet 
queue. 


Take from subnet queue 
(RECEIVE, DEQUEUE). 
When an MCS reroutes 
from a subnet queue. 


Buffer memory. 


By DCP during 
execution of GETSPACE 
function. 
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Station Queue Count/Limit 

Limit Set: Initialized by 2 by the 
NDL compiler SET 
QUEVE LIMIT 
communicate. 


When an output message 
is queued to NDL by 
either an MCS or data 
comm user job. 


RESULT function 
processes an output 
message. 


Station table. 


Task sent to a station. 


Count Incremented: 


Count Decremented: 


Location: 
Checked: 


Task Output Count/Limit 

Limit Set: Initialized to 2 by the 
NDL compiler SET 
OUTPUT LIMIT 


communicate. 

Count Incremented: DC user job SEND to 
MCS. 

Count Decremented: CONTINUE TASK 
Communicate 


When an output message 
is rerouted from the 
MCS Queue to a station 
queue via the 
ROUTE.OUTPUT 
communicate. 


User Jobs Table (DCA) 
Task sent to MCS. 


Location: 
Checked: 


DCA/DCP Communication 


There are two main areas of communication when 
the DCP interfaces with the DCA: 


1. Message Communication. 
2. NDL Table Access. 


Message Communication 


Queues provide the message interface between the 
DCA and the DCP. These queues are the request 
queue for messages to the DCP, and the result queue 
for messages to the DCA. These queues are briefly 
described and are thoroughly discussed under ‘‘Buf- 
fer Management.”’ 
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Request Queue 


Request queue messages are located in buffer 
memory. There is a request queue for each DCP. To 
link message addresses to a particular DCP’s request 
queue, DCA proceeds as follows: 


1. Lock the queue. 

2. Bottom-link the message to any existing 
messages. 

3. Change the top and bottom queue pointers 
if no previous messages were present. 

4. Unlock the request queue. 


The lock word and the head and tail of the request 
queue reside in remote memory. 


The messages passed to the DCP are those defined 
for the CMS data comm subsystem with the addition 
of a DCA/DCP marker type (type 26) message. 


When the DCA transfers a message to a DCP re- 
quest queue, certain fields are initialized for use by 
the DCP. The message type determines the message 
header fields to be initialized. For station type func- 
tions: 


. Output. 

. Priority output. 

. Enable input. 

. Disable input. 

. Make station ready/not ready. 


nA B&B WD pe 


The following fields are initialized: 


1. LLN - Used by DCP to find the base of 
the line information area. 

2. LSN Most Byte - Initialized to the RSN 
from the station table. The DCP does not 
have access to the LSN conversion table (in 
OS memory); therefore, the RSN provides an 
easier method to access the station table (in 
DCP memory). Once the station table has 
been located, the DCP replaces the LSN field. 
3. RESULT - Set to zero. 

4. RESERVED - Set to the relative MCS 
number of the issuing MCS. 


For the line oriented functions: 
1. Make line ready/not ready. 
2. Dialout. 
3. LLN. 
4. RESULT. 
5. RESERVED. 


are initialized in the manner described above. 


Result Queue 
There is a single result queue for all DCPs. 


Result queue messages are located in buffer mem- 
ory. To place the addresses of messages sent to the 
DCA into the result queue, the DCP proceeds as fol- 
lows: 


1. Lock the queue. 

2. Insert this DCP’s ID in the result queue’s 
processor-ID field. 

3. Bottom-link the messages to any existing 
messages. 

4. Change the pointer at the top of queue if 
no messages were present. 

5. Unlock the link. 

6. Notify DCA that a message is on the result 
queue by issuing an interrupt (using processor 
interface). 


The lock word, the head and tail, and the proces- 
sor-ID of the queue are located in buffer memory. 


All message headers placed in the result queue 
contain an LLN and an LSN in the appropriate 
fields. 


Available Buffer Pool Queue 


The available buffer pool queue maintains avail- 
able buffer space. Both the DCP and DCA use and 
return space from this queue as needed. The ABP 
queue is located in buffer memory together with its 
lock word, head, tail, and buffer count. 


NDL Table Accessing 


DCL places all line and station table addresses in 
DCA memory, and updates them during reconfigura- 
tion. The DCP maintains these tables. When a CMS 
interrogate requests DCA to retrieve table informa- 
tion from a DCP, DCA reads the data item directly 
from DCP memory. 


DATA COMM PROCESSORS 
(DCPS) 


When loaded by DCL, each DCP is responsible 
for: 


. Host Control. 

. Message/Buffer Handling. 

. Line Management. 

. DCP Table Maintenance. 

. NDL S-Op Handling. 

. RCV/XMIT Character Handling. 

. Subroutines supporting S-Ops, Manager, 
and Host Control. 


SHAN WN = 


The logical flow of a DCP, on the most general 
level, consists of a line manager which constantly ro- 


tates control from one line to the next (see figure 12- 
10). 


As the figures show, a round-robin and a top- 
down scheme are used for line switching. The 
co ordination of these two schemes are described in 
detail under ‘‘Line Management’’. 


Line rotation begins when DCL starts-up the DCP 
and continues until either the DCP fails or the MCS 
goes to EOJ. 


Control changes from one line to the next only af- 
ter the currently executing line discipline has _per- 
formed all actions required and/or allowed by its 
NDL specifications. 


During the rotation cycle, line manager treats host 
control as a line. Host control handles all communi- 
cates from DCA via the request queue. In a DCP 
handling <n> lines, host control is given control af- 
ter line <n>. When host control has finished, con- 
trol is passed to line 1. 


Host Control 


Each time host control is entered, a test is per- 
formed to determine if host control can run; that is, 
host control can function only every <n> times that 
it receives control. If host. control can run, it per- 
forms the following functions in the order given: 


1. A single message is dequeued from the re- 
quest queue, if the queue is not empty. 
a. If this is an output, priority output, or 
enable/disable input message, it is placed on 
the appropriate station queue. 
b. Any other message types (for example, 
make line ready) are actioned immediately 
by the DCP. 
2. Messages on the pseudo-result queue in 
DCP memory, if any have accumulated, are 
enqueued to the result queue proper. If the re- 
sult queue was previously empty, an interrupt 
is sent to the result function in DCA by PI. 


NOTE 
Each time host control executes, only 
one of the above functions is_per- 
formed. 


Execution In An Idled System 


In an environment where no lines are active 
(ready) the only active process is host control. A 
more detailed description of the functions of host 
control is provided in the paragraphs that follow. 
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(A) ROUND-ROBIN LINE SWITCH 


REQUEST QUEUE 
PROCESS 
(JOB —® DCP) 


HOST 
INTERFACE 


RESULT QUEUE 
PROCESS 
(DCP -> JOB) 


LINE 
MANAGER 


PROCESSOR 
INTERFACE 


MANAGER 
ENTRY 


INTERRUPT 
HANDLER 


(B) TOP-DOWN LINE SWITCH 


TOP PRIORITY 
NEXT PRIORITY 


NOTES: 
1. IF MORE THAN ONE LINE HAS TOP 
PRIORITY, THOSE LINES ARE TREATED 


PRIORITY AS A ROUND-ROBIN. 


LINE 
CHANGE 


DECREASING 
PRIORITY 


LOWEST PRIORITY 
HOST CONTROL 
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2. IN ORDER TO GET TO THE LOWER 
PRIORITY LINES, ALL THE HIGHER 
PRIORITY LINES MUST HAVE 
RELINQUISHED CONTROL TO THE 
ROUND-ROBIN LINE SWITCH. 


Figure 12-10. DCP Logical Flow (Multi-Line) 
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DCP Queue Accessing 


Figure 12-11 shows the pointers used by the DCP 
to access the various system queues. These pointers 
are either direct or indirect. Indirect pointers are 
initialized by the DCL. Direct pointers are used for 
- queues solely maintained by the DCP. They are 
initialized by the DCP the first time it links an item 
into the queue. The only exception to this is the 
subnet queue. This indirect pointer is initialized by 
the route input function when a particular station’s 
input is routed directly into a subnet queue. The 
DCP never accesses items within a subnet queue; it 
merely uses the subnet table to examine queue count 
and limit fields. 


BUFFER MEMORY 


| QUEUES 


| 
| 
| 
| 
| 
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QUEUE | 
POINTERS 


Request Function 


The request function is responsible for the fol- 
lowing: 


1. Delinking messages from the request 
queue. 


2. Decoding LLN and setting up L (multi-line 
only). 


3. Decoding type and jumping to line relative 
function. 


4. Resolving DCP result queue. 
5. Executing PI. 


DCP MEMORY 


ABP 


RESULT QUEUE 
~ REQUEST QUEUE 


DCP RESULT QUEUE 


PHYSICAL 
LINE 


LINE VECTOR 
LINE aie BASE 


aa TABLE 


| STATION QUEUE 
SUBNET QUEUE 


LINE INFO 
CMS LINE TABLE 


Figure 12-11. DCP Table and Queue Access 
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Request Queue Delinking 


In the single-line case, the request function exam- 
ines the line relative FUNCTION-IN-PROGRESS 
bit. If set, the request function cannot remove any 
messages from the request queue and thus goes to 
LABEL.RESOLVE.RES.Q. In the multi-line sys- 
tem, the request function retrieves the LLN from 
the message header and sets up L to point to the 
data comm line’s line information area. The request 
function then examines the FUNCTION-IN-PROG- 
RESS bit and if reset, delinks the message from the 
request queue. Otherwise, this function unlocks the 
request queue and goes to 
LABEL.RESOLVE.RES.Q. Before returning to the 
DCP local memory, the request function reads 
various fields in the message header and saves them 
in machine registers for use in later operations. 


LLN Decoding and L Set-Up 


The request function uses the LLN from the mes- 
sage header to index into the line information base 
address table (multi-line only). The address of the in- 
dicated line’s line information area base address is 
placed into L. 


Type Decode 


The request function uses the message header type 
to index into a branch table to find the address of 
the code to perform the required function for this 
type. The types are as follows: 


Input 

Output 

Priority Output 

Enable Input 

Disable Input 

Make Station Ready 

Make Station Not Ready 
Make Line Ready 

Make Line Not Ready 
Dialout 

Make Line Not Ready Immediate 
Recover 

Deallocate 
Reconfigure/Reload Marker 


If any type other than those indicated is placed on 
the result queue, the request function branches to 
the reconfigure/reload marker code to respond. 


DCP Result Queue 


The RESOLVE RESULT QUEUE routine is 
executed whenever there is no action required on 
the request queue. The DCP result queue eliminates 
the possibility of being locked out of the DCP/DCA 
result queue. Any NPC function that calls LINK.R- 
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ESULT.QUEUE causes its message to be linked to 
a pseudo result queue, whose pointers are located in 
reserved memory. The request function examines 
the DCP result queue for entries and if it is non- 
empty, the request function attempts to link these 
messages to the DCP/DCA result queue. If the 
DCP/DCA result queue is locked, the request func- 
tion gives control to the DCP PI code. The pseudo- 
result queue requires additional overhead but does 
not impact system throughput. 


PI 


The major function of PI within the DCP is to 
cause the DCA result function to be invoked when 
the system result queue becomes non null, that is, 
when the DCP adds a message to a previously empty 
queue. The DCP performs this function by creating 
and sending a mail box to the OS processor. PI’s 
other function with the DCP is to receive ownership 
of this mail box when MCP returns it. 


Line and Station Relative Functions 


The following are line relative functions. When en- 
countered by the host control, they are actioned im- 
mediately. 


Make line ready/not ready/immediate not ready 
Dialout 

Recover 

Deallocate 


Make station ready/not ready are considered to be 
line relative because it would be impossible to action 
them as station relative functions. A station relative 
function can only be actioned for a “‘ready”’ station. 


Output 
Priority output 
Enable/disable input 


are station relative and are queued to the relevant 
station queue by host control. Output and priority 
output are actioned by the NDL transmit request, 
enable/disable input by line management. 


Discarding Message Space 


The DCP discards message space by setting the 
message header type of the message space to 27 and 
linking the message to the result queue. The DCA 
result function decodes the message header type and 
returns the space to the available buffer pool. By 
this method the result function may cause those 
tions waiting on space to be re instated. 


Message Header Transfers from DCP 


For input messages or function results, the DCP 
places the LSN or LLN into the correct portion of 
the header. Function headers taken from the request 
queue are similarly adjusted (replacing LLN or 
LSN) by the DCP request queue handler before 
functions are placed into a station queue. Therefore, 
when a recall is performed, the DCA result function 
need not read the station table for the LSN of each 
message in the station queue. 


The transmission numbers in the header are 
decimal numbers found in the first three digits of the 
transmission number field. This field is initialized by 
the DCP and converted to ASCII by the result func- 
tion for those headers in which the numbers have 
been stored. 


When the DCP performs a recall, it places the sta- 
tion queue head pointer into the 
OPTIONS/EVENTS field of the recall header. The 
DCA result function places the station queue mes- 
sages in the MCS queue after the recall result has 
been serviced from the result queue. Each header 
from the station queue is given a result field of ‘‘RE- 
CALLED” and if the message is an output message, 
the station queue count is decremented for that mes- 
sage. If a recalled output message is from a DCP 
that is now dead, the station queue count is not de- 
cremented. If, at a later time, the DCP recovers, 
there may be a problem with inconsistent counts. 
The DCP cannot clear the station queue count when 
a recall is performed because there is no READ 
W/LOCK for the count field; the DCA normally 
maintains that count. 


The DCP queue pointers are four-byte fields (sta- 
tion queue, hold queue). The queue pointers access- 
ed by the DCA are four-byte fields (MCS queue, 
subnet queue, request queue, result queue, ABP). 
The DCA code provides for four-byte buffer links. 


Handling Message Buffers 


The buffer space for all messages is located in buf- 
fer memory(s). This section describes how message 
space is obtained, characters are fetched and stored, 
and control is given to the DCCH. 


GETSPACE 


The GETSPACE S-Op may be used explicitly 
(GETSPACE) or implicitly (RECEIVE TEXT, 
INITIALIZE TEXT, STORE). Each GETSPACE, 
whether implicit or explicit, obtains space in the re- 


mote memory for the DCP’s use. The following pro- 
cedure is used: 


1. Either a TERMINATE S-Op or a GETS- 
PACE S-Op obtains the necessary number of 
buffers, as follows: 
a. If the space is obtained in order to store 
text, the subroutine to perform the GETS- 
PACE S-Op is entered with two 
parameters: 
1) The number of buffers required by the 
terminal type that executes the statement 
is passed in a register. 
2) The number of bytes (MAXINPUT) 
required by the terminal type (1’s comple- 
ment) is passed in 
LNE.MSG.HDR.MSG.LEN. 
b. If a TERMINATE obtains space to re- 
port a condition, only one buffer is re- 
quired. 
2. If the Available Buffer Pool (ABP) is 
locked (that is, in use by DCCH or another 
DCP) upon entry, the state of the line is saved 
and the line is paused. When the line regains 
control, it again attempts to lock the ABP. 
3. The ABP is locked by accessing the ABP 
Read-With-Lock (RWL) word. (All available 
space is in the ABP.) The DCP’s processor-ID 
is inserted into the ABP as an aid to recovery 
in case the particular DCP fails. After locking 
the ABP, the DCP checks whether there are 
enough buffers in the ABP to perform the 
GETSPACE. If not, the ABP is unlocked and 
the GETSPACE is aborted via the appropriate 
action. 


NOTE 
Three buffers are reserved in the ABP 
to be used for single-buffer GETS- 
PACEs and are not accessible by the 
normal S-Op-type GETSPACEs. 


a. If there is not enough space when a ter- 
minate GETSPACE occurs, the ABP is un- 
locked; the line is paused; and when the 
line regains control, it tries again to obtain 
the space. 
b. If the ABP has enough space, the DCP 
updates the count of available buffers, de- 
links the quantity that it needs, and then 
unlocks the ABP. 
4. Once space has been obtained, the fol- 
lowing fields in the message header are initial- 
ized: 
a. Address (processor #/line #) with the 
values from the address in the line table. 
b. Logical Station Number (LSN) with the 
LSN of the active station. 
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c. Each of the following is initialized to 
Zero: 

Tally 0 

Tally 1 

Tally 2 

Toggles 

MCS Data 

d. RESULT/TYPE is initialized to 

@0001@. 

e. TASK/MCS flag is initialized to zero. 
5. All DCP variables that are required to per- 
form text storing are also initialized (see sec- 
tion on “‘Character Storing’’ for a list of these 
variables. ) 


Character Fetching 


Individual characters are fetched from output-type 
message buffers. The fetch can result from an ex- 
plicit FETCH statement, or implicitly through a 
TRANSMIT TEXT statement. Either way, the fetch 
is performed by a common subroutine; this subrou- 
tine is responsible for returning the next sequential 
character in the buffer, both in the BO register and 
in the CHAR register (which is a field maintained by 
the NDL virtual machine). 


First, the routine makes sure that text is still avail- 
able in the buffer (if there is none, a value of @FF@ 
is returned in the B1 register; otherwise, @00@ is 
returned in B1). 


The routine also checks whether or not the point- 
ers to the buffers need to be updated to move into 
the next buffer. 


Character Storing 


Characters are stored individually into input-type 
message buffers. The store can be a result of an ex- 
plicit STORE instruction, or implicitly through a RE- 
CEIVE TEXT statement. In either case, a subrou- 
tine performs the actual store. This routine is en- 
tered with the character to be stored in the BO regis- 
ter or in the CHAR register. If the amount of avail- 
able text space is exhausted, the subroutine is re- 
sponsible for returning an indicator to the caller. 


A successful store is indicated by returning 0 in 
the B1 register, while a value of @FF@ in B1 indi- 
cates an unsuccessful store. 


Variables associated with storing of textual char- 
acters are listed below with a description of their use 
as it applies. These variables are located in the line 
info area. 
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LNE.BUFFER.SIZE (Two bytes) 


This contains the 2’s complement of the buffer- 
size. It is incremented each time a character is 
stored/fetched. If an overflow is encountered while 
incrementing, the current buffer is full. The variable 
takes on special meanings in the following cases: 


1. If NO-SPACE-AVAILABLE, the LNE- 
-BUFFER.SIZE has a value of @FFFF@. 
2. On the first and last buffers of the mes- 
sage, the buffer-size is the 2’s complement of 
the actual space available in that buffer for 
text (possibly less than the declared buffer 
Size). 


LNE.BUFFER.COUNT (Four bytes) 


This contains the absolute address in the message 
buffer of where the next character is to be 
stored/fetched. It is only valid if LNE.BUFFE- 
R.SIZE is not equal to @FFFF@. The variable is 
incremented with each character stored/fetched. 


LNE.THIS.BUFFER.SIZE (Two 
bytes) 


This contains the true (that is, uncomplemented) 
value of the amount of text space available in this 
buffer. It is only valid if LNE.BUFFER.SIZE is not 
@FFFF@. It normally contains the same value as 
BUFFER.SIZE defined in the NDLSYS with the ex- 
ception of: 1) the first buffer, at which point it con- 
tains the value of BUFFER.SIZE minus MESSAGE- 
-HEADER.SIZE; and 2) the last buffer, at which 
point it contains the amount of textual character 
space available to equal MAX-INPUT(LNE.TE- 
XT.SIZE FALSE). 


LNE.FLAGS.2 (SPACE.AVAIL) 


A flag indicating whether or not space is available. 


LNE.TEXT.SIZE (Two bytes) 


Contains the 1’s complement of the amount of 
characters that can be accumulated (MAX.INPUT). 
As characters are stored, the value is incremented 
until overflow occurs, indicating END.OF.BUFFER. 
The value is only incremented when buffer bound- 
aries are crossed (for example, LNE.BUFFER.SIZE 
overflows and space is available). 


LNE.CURRENT.BUFFER (Four 
bytes) 


Contains the base address of the current buffer. 


LINE 1 HIGHEST 


PRIORITY 


LINE 1 


FORWARD BACKWARD 


Transferring Space Ownership to DCA 


Message space ownership is always transferred by 
the DCP to the DCA. Regardless of the final destina- 
tion of the space, it is placed onto the result queue 
and passed to the DCA. The DCA is then responsi- 
ble for further routing of the space or returning it to 
the available buffer pool. 


Line Management 


Line switching is accomplished by one of two 
techniques: 1) a top down line change; and 2) a 
round robin line change. Linked lists, which connect 
ready lines, control both schemes. When a line is 
made ready, host control links the line into the 
round robin queue. After determining where it 
should fall in the top down queue, host control links 
the line into that queue as well. 


The top down scheme is used when the line is re- 
linguishing control but must regain control in time to 
service the next interrupt (for example, transmitting 
or receiving). Control is passed to the line refer- 
enced by the PRIORITY.POINTER field. The fol- 
lowing factors affect a line’s placement in the top 
down queue: 


1. Priority - When a line is made ready, it is 
inserted in the top down queue according to 
the priority code in the station table. for 
relative station 0. 

2. Speed - Higher-speed lines have a higher 
priority and are at the top of the line queue. 


NOTE 

Each line in the top down queue has a 
pointer to the highest-priority line ex- 
cept when several lines all have the 
same priority and no ready line has a 
higher priority. In this case, a round 
robin scheme is used (at the highest 
priority only). (See figure 12-12.) 


PRIORITY ; 


Figure 12-12. Line Linkage 


The round robin scheme is used when the line is 
relinguishing control at a time when it is not 
particularly busy (for example, pause or delay state- 
ments). Control is passed to the line referenced by 
the NEXT.POINTER field. The round robin line 
queue consists of forward and backward pointers. 


The primary and auxiliary sides of a full-duplex 
line maintain their own line information area; there- 
fore, each side is one entry in the line queue. 


Host control is linked to the bottom of the round 
robin queue. Therefore, when no line is busy (using 
top down switching), host control is entered after the 
last line and before the first line. Because host con- 
trol requires fewer variables than a data comm line, 
its variables are placed in a special area of reserved 
memory. Variables are positioned so line manager 
can treat host control like any other line. 


At DCP initialization time, the host control func- 
tion is linked to itself. As lines are made ready, the 
lines are linked into both queues. When a line goes 
not ready, it is delinked from both queues. 


As a full-duplex line is made ready, the primary is 
linked into both queues, but the auxiliary remains in- 
active until the primary executes a FORK instruc- 
tion. A subsequent IDLE by the auxiliary causes it 
to be delinked. 
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Single-Line Manager Schemes 


In a single-line manager, control passes back and 
forth between host control and the one ready line on 
that DCP. Interrupt handling routines return control 
directly to host control. 


NOTE 
The presence of one full-duplex line in 
a DCP causes NPC to generate a multi- 
line manager for that DCP. 


DCP Table Maintenance 


Figure 12-13 shows DCP memory following DCL 
execution. Tables are loaded starting at the high end 
of memory. Enough space is reserved above each 
line table/line information to accommodate MAX- 
STATION station tables. Station vectors within the 
CMS line table are initialized at data comm load 
time and point to the area reserved for the station ta- 
ble. Because of reconfiguration, relative station num- 
bers may alter as stations and are attached/detached 
to/from a line. As station tables are accessed indi- 
rectly via the station vector, the station table should 
not be moved during reconfiguration. Only the sta- 
tion vectors are moved. 


0000 
RESERVED AREA 


DCP CODE 


STATION TABLES FOR LINEN 


LINE INFO AREA FOR LINEN - , 
re 
Po eeeene 


CMS LINE TABLE FOR LINE 0 


UNUSED 


FFFO 


FFFF 


ED2288 
Figure 12-13. DCP Memory 
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The top 15 bytes of memory are never used. By 
convention, the DCA always accesses remote mem- 
ory with the interface control enabled. Access to ad- 
dress @FFF8@ through @FFFF@ have a special 
meaning in this mode; @FFFO0@ is chosen as a con- 
venient upper limit for DCP memory. 


Station Table 


The station table in DCP memory is similar to the 
CMS-defined station table. The size of the station ta- 
ble is the same for all stations on a system. Conse- 
quently, any station that makes use of the extended 
tallies causes all station tables in that system to have 
space allocated for the extended tallies. DCL loads 
all station tables at MCS start-time. 


The station table is usually referenced by using the 
K-register. This register contains the base address of 
the active station for the currently executing line. 


When the active station changes, it is validated. 
Then, the routine that changes the station number 
updates the K-register to point to the new station ta- 
ble. If an INVALID STATION occurs (STATION is 
greater than or equal to MAX.STATIONS), the 
pointers are set to a dummy station table in reserved 
memory. Figure 12-14 shows the layout of the sta- 
tion table as loaded into DCP memory. 


Line Table 


The DCP requires more line-relative data than is 
available in the CMS-defined line table. Therefore, a 
line information area prefixes the CMS-defined line 
table. Each CMS-defined line table consists of 16 
bytes plus four bytes for each possible station that 
can be attached to the line. The maximum number 
of attached stations cannot be greater than MA- 
X.ENTRIES. 


The line table and associated line information area 
are always referenced using the L-register. The L- 
register points to the base of the line information 
area of the currently executing line. The line table 
for that line is appended to the end of the line infor- 
mation area. The L-register is replaced with the ad- 
dress of the base of the line area information area 
when the manager switches lines. The address of the 
line area is located in the previous line’s line infor- 
mation area. 


The sequence to change the L-register to point to 
the next line appears as: 


Mi < L + NEXT.LINE.POINTER %previ- 
ous line 


L< I] Yonew line 


i ] 


~» 


END CHARACTER LINE DELETE CHARACTER 


4 BACKSPACE CHARACTER WRU CHARACTER 
6 CONTROL CHARACTER STATION FREQUENCY 
XMT ADDRESS-2 XMT ADDRESS-1 
10 RUN MODE BITS XMT ADDRESS-3 


12 RCV ADDRESS-2 


RCV ADDRESS-1 
14 RCV ADDRESS-3 


16 RCV TRANSMISSION NO. SAVE Q HEAD PAGE 


18 XMT TRANSMISSION NO. SAVE QHEAD ADDRESS 


8 


8 


UNPROCESSED INPUT LIMIT UNPROCESSED INPUT COUNT 


ORIGINAL RETRY RETRY 


Ld 
:~ 


TALLY (1) TALLY (0) 


TALLY (2) TOGGLES (7 - 0) 
EVENTS (BYTE 1) 

EVENTS (BYTES 2-3) 

INITIATE RCV DELAY 

ACTIVE XMT DELAY 


OUTPUT SAVE QTAIL PAGE 


OUTPUT SAVE QTAIL ADDRESS 


STATION Q LIMIT STATION Q COUNT 


SUBNET QUEUE PAGE 


SUBNET QUEUE ADDRESS 


LINE PRIORITY CODE 


TYPE 


TERMINAL 


STA QHEAD PAGE 


2ees eeveeeseseevse Beer sees 


STA QHEAD ADDRESS 


oa 
LN 


STA QTAIL PAGE 


STA QTAIL ADDRESS 


z 8. 


TALLY (4,3,6,5,8,7) 


~ 
La) 


TALLY (10,9,12,11,14,13) 


| 
Ge 


TALLY (16,15, 18,17) 


OUTPUT SAVE Q COUNT INPUT SAVE Q COUNT 


INPUT SAVE_Q HEAD PAGE 
INPUT SAVE_O HEAD ADDRESS 
INPUT SAVE-Q TAIL PAGE 


INPUT SAVE_Q TAIL ADDRESS 


5 8&8 & FB 


Figure 12-14. Station Table 


The NPC sets a bit on a file basis which indicates 
the possibility of full-duplex on this file; that is, 
FD.POSSIBLE:=G.TERB 
(*FULL.DUPLEX.TYPE) and G.LINEB 
(*LINE.FDX). This means that there is at least one 
full-duplex line on the DCP and at least one full-du- 
plex terminal on the file to activate full-duplex logic. 


Each full-duplex line requires the existence of line 
information areas for each half of the line but only 
one line table. To accommodate this requirement, 
the line information areas and line tables for the full- 
duplex operation are aligned as follows: 


1. The line table is appended to the primary’s 
line information area; that is, as in the half- 
duplex case. 

2. The line information area for the auxiliary 
exists in memory, but cannot be conveniently 
located to make a direct line table access. 


3. Each line information area contains two 
fields: | 


a. LNE.PRI.PTR - Points to the base of the 
primary’s line information area in full-du- 
plex. Points to the base of its own line in- 
formation area in half-duplex. | 

b. LNE.CO.LINE.PTR = Points to the 
base of the co-line’s line information area in 
full-duplex. Contains a value of null 
(@FFFF@) in half-duplex. 


When L is not guaranteed to be addressing a pri- 
mary or a half-duplex line, any access to the line ta- 
ble must be indirect. The indirect access is accom- 
plished by using the LNE.PRIPTR plus <desired 
offset> as an index into memory. 


If FD.POSSIBLE = FALSE, all lines are half-du- 
plex. A macro generation of the code required to ac- 
cess the full-duplex line table is invoked by calling: 


INDIRECT.ACCESS (L.DISP, LIT.NM) 


Translation Table Space Allocation 


The space allocated for translation tables is a max- 
imum of 512 bytes per table. If two or more terminal 
types require the same translation table, only one 
copy of the table is required. The memory allocation 
calculation is shown below. 


NT *512 = maximum size (in bytes) for 
translation tables. 


Where NT equals the number of terminals requiring 
different translation tables. 
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To fill translate table space, NPC: 


1. Splits the tables, retrieved from NDLSYS, 
into a RCV table and an XMT table for each 
unique terminal type requiring translation. 

2. Creates two separate tables from the CMS 
translate table. 


The above translation table arrangement enables 
increased speed when translating characters, and 
simplifies loading the translation table into the line 
adaptors which have translation capability. 


Since NPC places the translate tables into the 
code file, it knows the absolute address of the place- 
ment. Consequently, any references to translate ta- 
bles are direct. 


Terminal and Modem Tables 


NPC generates in-line code for the DCP from in- 
formation located in the terminal and modem tables. 
This eliminates the need to maintain these DCP ta- 
bles. 


NDL S-Op Handling 


The following conventions are observed when han- 
dling NDL S-Ops: 


1. Each S-Op in the control and request sets 
has been converted to microcode by the NDL 
Post Compiler (NPC). 

2. Each S-instruction’s microcode is treated 
as an independent unit. When S-instruction 
microcode is entered, the values contained in 
a specific register (other than J, K, L) are un- 
known. The S-instruction code may pass and 
receive values to or from subroutines. Subse- 
quently, however, the S-instruction has no ac- 
cess to information that had been in the ma- 
chine registers. 

3. The K and L-registers are loaded with their 
respective values at line switch time (MULTI- 
-LINE). Thus, all execution on that line can 
make use of the values in K and L-register. 
Whenever the active station is altered, the K- 
register is altered to contain the new station 
table address. When host control is activated 
(MULTI.LINE), the L-register points to the 
base of its work area. This work area is 
similar to a line table. Because the single-line 
mode would require restoration of K before 
returning to the line, the K-register is not 
used by host control. 


12-28 


Register Conventions 


The NDL process uses certain conventions to in- 
dex into the tables located in DCP memory and to 
execute the S-Ops. Succeeding paragraphs describe 
these mechanisms. 


L The L-register (two bytes) contains 
the address of the line table 
information area of the line 
currently being actioned. 


K The K-register (two bytes) contains 
the address of the station table for 
the current active station of the 
line being actioned. 


J The J-register contains a value of 
zero. 
M1 The M1 register is used to point 


to the area of memory being 
referenced. It is not maintained 
either from routine to routine or 
from S-Op to S-Op. Consequently, 
the executing routine must set-up 
this register. 


M2 The M2 register is used to point 
to the area of memory being 
referenced. It is maintained neither 
from routine to routine nor from 
S-Op to S-Op. Consequently, the 
executing routine must set-up this 
register. 


Bl The B1 register tests bits; namely, 
the following: 


1. System flags (space available, line 
control, output, and so on.) 
2. System status. 
3. Toggles. 
This register is also a work 
register when needed. 


BO The BO register is a work register; 
for example, some byte-variable S- 
Ops load the byte variable in 
question into BO. 


This register is used for paging to 
remote memory modules. 

This register is used for paging to 
remote memory modules. 

The routine that alters this register 
must always restore its contents to 
the value of the local DCP 
memory page. 


MXA 
MXB 


MAX 


WR, B32 These are general-purpose work 


registers (each is two bytes long). 


RCV/XMIT Character Handling (Interrupt 
Handling) 


All interrupts from lines are ‘‘soft’’ interrupts. The 
presence of an interrupt is not detected unless the 
NDL discipline allows its processing during the cur- 
rent control pass. 


This discussion will cover the relationships be- 
tween S-Ops and the XMIT/RCV interrupt handlers 
in very general terms. Note that all character han- 
dling managers are ‘‘tuned’’ per terminal. (Refer to 
figure 12-15 for general interrupt handling.) 


TRANSMIT 


In the NDL program a TRANSMIT S-Op is en- 
countered. (It is assumed that for this discussion the 
adapter has been previously set-up for the transmit 
by an initiate transmit.) Assume that a TRANSMIT 
CHAR S-Op has been encountered: 


S-Op Code 
1. Some preliminary set-up. | 
2. If auxiliary of a full duplex line, abort. 
3. Call pre-manager transmit. 
4. If break, then go to break addr. 


PRE-MANAGER 


RECEIVE | 


L 

4 TRANSMIT 

: coment 

D 

I 

S 

C 

' DELAY 

p 

L 

I 

N 

: PAUSE | 
IDLE 
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Figure 12-15. General Interrupt Handling 


Pre-Manager Code 
1. Store character to be transmitted in 
LNE.IN.CHAR. 
2. Translate, if pertinent. 
3. Generate vertical parity, if pertinent. 
4. Generate horizontal parity. 
5. Store translated character with parity to L- 
CHAR. 
6. Store MANAGER.XMIT in LNE.FUN- 
CTION. 
7. Give up control to top down manager. 


(The DCP is now free to execute code on behalf of 
other lines.) 


MANAGER.XMIT Code 
1. Check transmit exception (read primary 
status from adapter). 
2. Handle any exceptions: 

a. DSR/ = abort. 

b. CTS/ = abort.. 

c. Break = wait for end, return to S-Op. 
4. If XMIT.REQ (that is, adapter is ready for 
character), then: 

a. Write L-CHAR to adapter. 

b. Return to S-Op. 

c. ELSE, give up control to round robin 

manager. 


MANAGER INTERRUPT-HANDLERS 


PRIORITY 


LINE-SWITCH 


MANAGER 
LINE-SWITCH 


(ROUND-ROBIN) oe 


RECEIVE 


In the NDL program a RECEIVE CHAR is en- 
countered (assume that the adapter has been prop- 
erly initialized via initiate receive). 


S-Op Code 
1. If primary of a full duplex line, generate 
timeout error and go to timeout branch of er- 
ror switch. a 
2. Set-up timeout value 
3. Call pre-manager receive. 
4. If receive error, take appropriate branch of 
error switch. 
5. If a search character is received, take ap- 
propriate branch. 


Pre-Manager Code 
1. Arm timer, if specified by the receive S- 
Op. 
2. Store MANAGER.RECV.CHAR in LNE- 
.FUNCTION. 
3. Give up control to top down manager. 


(The DCP is now free to execute code on behalf of 
the lines.) 


Manager Code 
4. If RCV.EXCEPTION (contained in pri- 
mary status on adapter) then: 
a. Set-up interface for error switch. 
b. Return to S-Op. 
5. If RCV.REQUEST (that is, there is a char- 
acter ready on adapter), then: 
. Read character. 
. Store character in L-CHAR. 
. Sum horizontal parity. 
. Strip vertical parity, if pertinent. 
. Translate character. 
Store translated character in IN-HAR. 
. Return to S-Op. 
6. ELSE (that is, no character is ready on 
adapter): 
a. If timeout has expired: 
1) Set-up interface for error switch. 
2) Return to S-Op. 
b. If timer is still running: 
1) Give up control to round robin man- 
ager. 


ermoaang® 


Subroutines Supporting S-Ops, 
Managers, Host Control 


The NDL Post Compiler (NPC) generates subrou- 
tines on an as-needed basis. That is, if a subroutine 
is not needed in a code file, it is not present. Sub- 
routines are used when the code is common to all 
terminals on the system, and is used frequently. 
Subroutines are called via the NBDS ‘“‘hard call’’ 
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Micro instructions and exited via the ‘‘hard return.”’ 
If a subroutine must yield before its function is com- 
plete, the subroutine is responsible for saving the re- 
turn pointer and doing a ‘‘soft return’’ on exit. 


BUFFER MANAGEMENT 


Subsystem Queues 


Host communication between the DCA, the 
DCP(s), and whatever MCS and user programs are 
present takes place through queues. The queueing 
process passes information and parameters between 
two or more logically separated routines in the DCA. 
Queueing causes the logical passing of data, buffers, 
and so on, without physically moving the data. 


Each queue contains two addresses, and is stored 
in a reserved area of memory known and accessed 
by the modules associated with it. Each address in- 
dicates the physical location of a message. The first 
address in the queue is the ‘‘head’’; it points to the 
next message to be removed from the queue for pro- 
cessing. The second address is the ‘“‘tail;’’ it indi- 
cates the location of the last message associated with 
the queue. 


The link mechanism connects the first and last 
(head and tail) messages with those between them. 


Queue Linking Mechanism 


Each data buffer begins with a single link address, 
which indicates the location of the message’s next 
buffer. In the last buffer of a message, the link is 
null. 


Following the buffer link, the first buffer of each 
message contains a message link. This indicates the 
first buffer of the next message. 


The head address allows access to the first mes- 
sage; the first message’s first buffer contains a link 
permitting access to the second, and so on. 


Generally, a CP 9500 Data Comm Subsystem 
queue is used in the same order as it was built, (that 
is, on a FIFO basis). The following algorithms are 
used to maintain CP 9500 DCS queues: 


1. Queue Linking (figure 12-16). When a mes- 
sage 1s added to the bottom of a queue, the 
queue’s tail address is retrieved. It is replaced 
by the address of the new message. The old 
tail is used to update the message link address 
in the message which was previously the last; 
this message’s previously null link address is 
set to point to the new end message. 


HEAD _—_ 
MESSAGE LINK 


TAIL 
QUEUE 
PREVIOUS TAIL 
~~ ae eee 
MESSAGE LINK 
PREVIOUSLY NULL LINK 
FILLED IN. 
MESSAGE BEING 
LINKED TO QUEUE. 
ED2292 


Figure 12-16. Queue Linking 


2. Top Queueing (figure 12-17). In certain 
cases, such as when a high-priority communi- 
cation contains data affecting communications 
queued earlier, top queueing is used. The old 
head address is retrieved, and replaced by the 


MESSAGE BEING 
TOP-QUEUED. 


PREVIOUS HEAD 


HEAD 


TAIL 


QUEUE 
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address of the new message. The old head ad- 
dress is then used to link the new beginning 
message to the former head message, which is 
now second. 


MESSAGE LINK 


ADDRESS PREVIOUSLY 
IN HEAD POINTER IS 
USED TO ESTABLISH 
MESSAGE LINK. 


MESSAGE LINK 


Figure 12-17. Top Queueing 
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12-32. 


PREVIOUS 


| ADDRESS IN MESSAGE 
LINK 1S USED TO SET 
HEAD POINTER. 


| MESSAGE LINK IS 
| DISSOLVED. 


HEAD ——— 
TAIL 
QUEUE 
) 
_ 
MESSAGE LINK 
ED2294 Figure 12-18. Queue Delinking 


3. Queue Delinking (figure 12-18). The head 
address indicates the next message to be re- 
moved from the queue for processing, so it is 
retrieved. The message link address in the 
message being removed is used to replace the 
head address. The head has been shifted to in- 
dicate the message following the one re- 
moved. 


4. Queue Lockout (figure 12-19). Queues in a 
multiprocessor environment must have their 
integrity protected. The request, result, and 
ABP queues each use a Read With Lock 
(RWL) Word. 


NOTE 
Any action or processor accessing the 
RWL words must have all interrupts 
disabled; it is then considered 
**muted.’’ 


The RWL word is subjected to the 
RWL hardware instruction; this reads 
the value, then replaces it with binary 
ones (@FF@) in the same clock cycle. 
If the value ready is @FF@, another 
action is using the queue, access is not 
allowed. If the value read is @00@, the 
queue can be accessed by this action 
only. (Any other action finds a value of 
@00@ to the RWL word just before 
terminating.) 
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R.W.L.- @00e@ 


QUEUE 


R.W.L.- @FFO 


QUEUE 


(B) ONE ACTION ACCESSES READ 
WITH LOCK WORD. READING 
RWL VIA READ-WITH-LOCK 
INSTRUCTION SETS IT TO 
@FF@. NO OTHER ACTION 
CAN ACCESS THE QUEUE 
UNTIL THIS ONE UNLOCKS 
ITS RWL WORD. 


(A) QUEUE NOT IN USE. CAN 
BE ACCESSED BY ANY ACTION. 


Figure 12-19. Queue Locking 


Queue Pointers in Buffer Memory 


The request, result, ABP, and subnet queues are 
stored in a contiguous area of reserved memory, 
(DC-DATA-AREA). These queues are described in 
the following paragraphs. Each description refers to 
figure 12-20 which indicates the format and size of 
the DC-POINTER-AREA. A description of MCS 
queues is also provided, but no MCS queue resides 
in the DC-POINTER-AREA. 


Request Queues 


Each DCP present on the CP 9500 has a request 
queue associated with it. The request queue contains 
messages from the DCA for that particular DCP. 


Space for eight request queues is reserved in the 
contiguous queue storage area (DC-POINTER- 
AREA) in reserved memory. This corresponds to the 
maximum number of DCPs allowed on the CP 9500. 
Each of the request queues contains a RWL word, 
(one byte), a four-byte head address, and a four-byte 
tail address. Each request queue occupies nine 
bytes. 


Result Queue 


There is one result queue in the data comm sub- 
system. It is used by the DCPs to send messages to 
the DCA. Since a DCP must lock the result queue 
to link a message into it, the PROC-ID byte is set 
to identify which processor is using the queue. This 
aids in recovery if the DCP fails before releasing the 
result queue. 


The DCA does not concern itself with setting the 
PROC-ID byte. The DCA resides in the operating 
system processor. Recovery from an MCP failure is 
assumed impossible. 


The result queue occupies ten bytes: one for the 
RWL word, one for the PROC-ID, four for the head 
address, and four for the tail. 


Available Buffer Pool (ABP) 


The ABP controls the use of message space by the 
DCPs. When a DCP gets space for a message, it de- 
links the space from the ABP. Message space is 
deallocated (relinked to the ABP) only by the DCA. 


Note that the ABP also has a RWL word, and a 
PROC-ID byte. Any action of processor accessing 
the RWL word must be muted (all interrupts dis- 
abled). The PROC-ID byte identifies the processor 
using the ABP; the ABP is still locked if the DCP 
fails. 


READ-WITH-LOCK 
PROCESSOR-ID 


COUNT (NO. OF BUF- 
FERS AVAILABLE) 


HEAD ADDRESS 
TAIL ADDRESS 


READ-WITH-LOCK 
PROCESSOR-ID 


HEAD ADDRESS 
TAIL ADDRESS 


READ-WITH-LOCK 


HEAD ADDRESS 
TAIL ADDRESS 


COUNT 


HEAD ADDRESS 
TAIL ADDRESS 


AVAILABLE BUFFER POOL (ABP) 
TOTAL LENGTH: 12 BYTES 
OCCURRENCES: 1 


22 


REQUEST QUEUE 
TOTAL LENGTH: 9 BYTES 
OCCURRENCES: 8 

(72 BYTES USED BY ALL REQUEST 
QUEUES) 


SUBNET QUEUE 
TOTAL LENGTH: 10 BYTES 
OCCURRENCES: SUBNET COUNT 
(NUMBER OF STATIONS) 
((10 X SUBNET COUNT) BYTES USED 
BY ALL SUBNET QUEUES) 


RESULT QUEUE 
TOTAL LENGTH: 10 BYTES 
OCCURRENCES: 1 


BYTES (n) = TOTALLENGTH OF DC POINTER AREA = (94 + (10 X SUBNET 


COUNT) ) BYTES 
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Figure 12-20. Queue Pointers in Reserved 
Buffer Memory 
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A DCP does not unlock the ABP until it has all 
of the space needed for a given message. Space is 
only available as buffers; all buffers are the same 
size. This BUFFER-SIZE is generated by NDL, 
which records it in the NDLSYS file as a count of 
two-byte words. The Data Comm Loader (DCL) 
converts the NDLSYS file’s BUFFER-SIZE as fol- 
lows: | 


1. DCL doubles the word-count given by the 
NDLSYS file to obtain a byte-count. 


2. Since four bytes are used for each message 
link or buffer link in the CP 9500, while two 
bytes are used in the NDLSYS file, BUF- 
FER-SIZE is incremented by four. 


The converted BUFFER-SIZE, which includes 
both buffer and message links, is then recorded in 
DCA absolute memory. 


FIRST BUFFER OF EACH MESSAGE: 


HEADER 


INFORMATION 


BUFFER SIZE 
BYTES 
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Data Comm Buffer Format 


When a data comm buffer is empty (linked into 
the ABP), the only use for its link word is to main- 
tain the ABP’s integrity. Once the buffer is in a mes- 
sage (delinked from the ABP), there are two kinds 
of links within the message format. 


The first is a link to the next buffer of the 
particular message. If a given buffer is last in a mes- 
sage, this link is null (@FFFF@). 


_ In the first buffer of each message, the buffer link 
is followed by a message link. This indicates the first 
buffer of the next message. (See figure 12-22.) If this 
is the last message, the link is null (@FFFF@). 


Each message’s initial buffer has 36 bytes of 
header information following the message link. 


Text occupies the remainder of each buffer after 
the link and/or header information is installed. (See 
figure 12-21.) 


EACH BUFFER AFTER THE FIRST: 


0 


BUFFER LINK ADDRESS 


BUFFER SIZE 
BYTES 


NOTES: 


BUFFER LINK ADDRESS !S ADDRESS OF 
THE NEXT BUFFER IN THE GIVEN 
MESSAGE. NULL IN LAST BUFFER 

OF ANY MESSAGE. 


. MESSAGE LINK ADDRESS IS ADDRESS 
OF THE FIRST BUFFER IN THE NEXT 
MESSAGE. NULL ONLY IN THE 
LAST MESSAGE. 


Figure 12-21. Formats of Data Comm Buffers 
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MCS Queues 


All messages sent to a given MCS program are 
placed on its MCS queue. This queue is maintained 
by the MCS to which it belongs. It does not reside 
in the DC-POINTER-AREA. In a multi-MCS envi- 
ronment, each MCS program has its own CMS 
queue. 


Subnet Queues 


Subnet queues are data comm files providing 
chronologically ordered messages from data comm 
Stations (terminals) for processing by user data 
comm tasks. 


All linking of messages to any subnet queue(s) 
must be performed by DCA. However, there are two 
ways this can occur. An MCS program, deriving its 
input solely from its own MCS queue, may issue a 
message to the DCA, directing the DCA to place a 
specific message on a subnet queue. Also, the DCA 
may route messages directly from the result queue to 
some subnet queue(s), bypassing the MCS pro- 
gram(s). 


Reconfiguration 


To redefine a station or line, that line must be in 
a ‘‘not ready’’ state. To make this determination, 
DCA creates a header (type 26) and links it to the 


MESSAGE 1, 
BUFFER 1 


MESSAGE 2, 
BUFFER 1 


MESSAGE 3, 
BUFFER 1 


MESSAGE 4, 
BUFFER 1 


m 
Oo 
S 
) 
© 
“N 


@FFFF@ 


MESSAGE 2, 
BUFFER 2 


appropriate DCP’s request queue. In processing the 
header (type 26) the DCP returns a result of 0 if the 
line is in the required state; otherwise a result of 7 
is returned (unable to initiate). 


Station tables only remain in DCP memory while 
attached to a line. Whenever a station is redefined, 
the changes must be made to the memory copy and 
the copy in SYSRECON. 


Data Comm Reload 


To reload a DCP, that DCP must be in an “‘idle’’ 
State (all lines not ready). To make this determin- 
ation, a header (type 26) is created by the DCA for 
each line defined on the DCP being reloaded and 
placed in the appropriate DCP request queue. When 
the DCP services this header, it returns a result con- 
taining an indication of whether that line on the DCP 
is in a ‘‘not ready”’ state. If all the lines on that DCP 
are not ready, RELOAD is permitted. A message re- 
sult of 7 (unable to initiate) indicates the line is 
ready. A result of 0 (complete and successful) indi- 
cates the line is not ready. 


Processor Interface (PI) code is embedded within 
each DCP codefile. At RELOAD time a number of 
locations must be saved and re initialized after the 
code overlay. Included in these locations are many 
of the PI variables. 


@FFFF@ 


MESSAGE 1, 
BUFFER 2 


@FFFF@ 


MESSAGE 2, 
BUFFER 3 


@FFFF@ 


MESSAGE 3, 
BUFFER 2 


@FFFF@ 


MESSAGE 4, 
BUFFER2 


Figure 12-22. Data Comm Buffer/Message Link Mechanism 
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APPENDIX A 
DATA 
COMMUNICATIONS 
INITIATION AND 
TERMINATION 


GENERAL 


This appendix describes the initiation and orderly 
termination of the data communications subsystem 
and what is involved in these operations. 


DATA COMMUNICATIONS 
INITIATION/TERMINATION 


Initiation 


When the SCL handler recognizes a request to 
load/execute a program that involves data comm, the 
following occurs: 

1. If the program is an MCS and there currently 
is no MCS within the system, the data comm 
system is loaded and initialized from h r 
gram file NDLSYS, _prior to the execution of 
the requested program (MCS). In the event that 
an MCS currently exists within the system, the 
load/execute of the requested program is 
aborted and the error message, LOAD FAIL- 
URE MCS ALREADY PRESENT, is displayed 
on the SPO. 

2. If the program is not an MCS, and an MCS ex- 
ists within the system, a normal load/execute of 
the program is performed. 


Termination 


When the system recognizes that a task is termin- 


ating or is to be terminated and that this task in- 
volves data comm, the following occurs: 


1. If the program is an MCS, control is given to 


the data comm subsystem which checks tasks 
waited by the data comm system, and for those 
tasks, sets the status key in the CD area equal 
to 91, causing control to be returned to the 
task. The data comm system is removed and 
the indicator(s) utilized by the master communi- 
cate handler and the SCL handler, to indicate 
the presence of the data comm system is set/re- 
set. The MCP can then remove the MCS. 


a. User tasks can continue or go to end-of-job 
(EOJ) at their discretion. 


b. Any future requests for access to the data 
comm system are refused. A value of 91 is 
set in the Status Key field of the CD area 
and control is immediately returned to the 
task. As before, the task can continue or go 
to end-of-job. 


2. If the program is not an MCS, and the data 


comm system is present, control is given to the 
data comm system which will: 

Detach the task from subnet queues 

Detach the task from stations 

Send a message of type TASK DETACH to the MCS 
Return to the operating system for normal EOJ/DS. 


If the data comm system is not present, the nor- 
mal EOJ/DS is performed. 
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APPENDIX B 


DATA 
COMMUNICATIONS 
COMMUNICATES 


INTRODUCTION 


This appendix describes the subset of CMS com- 
municates relevant to data communications. This 
subset is known collectively as the Class D commu- 
nicates. 


A communicate is the process by which an S-pro- 
gram requests the MCP to perform a function on its 
behalf. Generally, these functions may be requested 
by multiple S-programs and manipulate data not di- 
rectly accessible by the S-program. Having these 
functions within the MCP eliminates the need for du- 
plication of code and also insures that the integrity 
of the data is maintained. The interface to the MCP 
is provided by the S-programs interpreter via the 
communicate S-Op. The format of this S-Op may 
vary for different languages, but because the MCP 
interface is common to all languages, the interpreter 
must present the parameters for the communicate in 
a fixed format. The data area used to pass 
parameters to the MCP is known as the communi- 
cate parameter area (CPA). The general format of 
the CPA is as follows: 


1. Verb. Defines the type of action to be per- 
formed. 

2. Adverb. Qualifies the verb and defines the spe- 
cific actions. 

3. Object. Describes the entity on which the ac- 
tion is to be performed. 


The class D communicates consist of verb values 
@30@ through @3F@. Because of the large number 
of data communications functions required, the verb 
of a class D communicate is used to specify a gener- 
al type of function; the adverb defines the actual 
function. 


This appendix is arranged in two parts. The first 
defines all the class D verbs and the meaning of each 
adverb value within a given verb. The second de- 
fines the CPA layout of each verb/adverb pair. 


Sections 7 and 9 describe COBOL and MPLII 
user data communications functions. Within this ap- 
pendix one set of CPA layouts exist for user data 
comm; this being equally applicable to both COBOL 
and MPLII. As stated previously, the interface to a 
communicate is common; it is the joint responsibility 
of the language compiler and interpreter to provide 
the correct interface. 


The following are the class D verb values. 
Verb Description 


@30@ MCS control communicates, 
@31@ MCS interrogates. 
@32@ MCS redefinition. 
@33@ User data comm. 
@34@ MCS DCP oriented 
communicates. 
Verb-Adverb CPA Values 
Verb = 30 
Communicate Adverb 

QUEUE 00 
QUEUE.DEPTH 01 
SET.INPUT.LIMIT 02 
SET.QUEUVE.LIMIT 03 
EXCHANGE.REFERENCE 04 
FETCH.MESSAGE 05 
GET.MESSAGE.SPACE 06 
RELEASE.MESSAGE.SPACE 07 
READ.HEADER 08 
WRITE.HEADER 09 
READ.TEXT OA 
WRITE.TEXT 0B 
COPY.TEXT OC 
CONTINUE.STATION 0D 
CONTINUE.TASK OE 
ROUTE.INPUT OF 
ROUTE.OUTPUT 10 
ALLOW.INPUT 1] 
DISALLOW.INPUT 12 
ALLOW.OUTPUT 13 
DISALLOW.OUTPUT _ 14 
SET.OUTPUT.LIMIT 15 
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Verb = 31 
Communicate Adverb 
LINE.COUNT 00 
STATION.COUNT 3 01 
MODEM.COUNT 02 
TERMINAL.COUNT 03 
SUBNET.COUNT 04 
LINE.NUMBER 05 
STATION.NUMBER 06 
QUEUE.NUMBER | 07 
LINE.DESCRIPTION 08 
STATION.DESCRIPTION 09 
MODEM.DESCRIPTION 0A 
TERMINAL.DESCRIPTION OB 
SUBNET.DESCRIPTION oC 
LINE.STATIONS 0D 
SUBNET.STATIONS OF 
LINE.STATUS OF 
STATION.STATUS 10 
TASK.NAME 11 
TASK.NUMBER 2 
RECALL 3 
CLEAR 14 
SUBNET.STATUS 15 
TASK.STATUS 16 
Verb = 32 
Communicate Adverb 
REDEFINE.LINE 00 
REDEFINE.STATION 01 
Verb = 33 
Communicate Adverb 
ENABLE.INPUT 00 
DISABLE.INPUT 01 
ENABLE.OUTPUT 02 
DISABLE.OUTPUT 03 
RECEIVE 04 
SEND 0S 
ACCEPT 06 
Verb = 34 
Communicate Adverb 
DCP.RELOAD 00 
DCP.PROGRAM.NAMES 01 
DCP.PROGRAM.COUNT 02 
DCP.DESCRIPTION 03 
DCP.PROGRAM.TERMINALS 04 
DCP.PROCESSORS 05 


CPA Layouts 


The following CPA layouts are divided in two cat- 
egories: 
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1. Communicates which may only be invoked 
by an MCS program. 

2. Communicates which may only be invoked 
by a user data comm program. 


Within each category the CPA layouts are arranged 
in alphabetical order of function name. 


MCS CPA Layouts 


All functions set the most significant eight bits of 
FETCHVALUE equal to @00@ and the remaining 
sixteen bits to the ‘‘functional result.’’ The ‘‘func- 
tional result’’ is defined as follows: 


1. @0000@ = complete and successful. 
2. All other values = CMS event number de- 
fining the error encountered. 


ALLOW.INPUT 
ALLOW.INPUT (<queue number>, <task num- 
ber> <error option>); 


Byte Value Meaning 
0 30 Verb 
1 11 Adverb = ALLOW.INPUT 
2 ag Filter 
3 ‘3 Queue Number 
4 * Task Number 
ALLOW.OUTPUT 


ALLOW.OUTPUT (<station number>, <task num- 
ber> <error option>); 


Byte Value Meaning 

0 30 Verb 

1 13 Adverb = ALLOW.OUTPUT 

2-3 - Station Number 

4 - Task Number 

CLEAR 

CLEAR (<queue reference> <error option>); 
Byte Value Meaning 

0 31 Verb 

1 14 Adverb = CLEAR 

2-3 * Queue Reference 


CONTINUE.STATION 
CONTINUE.STATION (<station number> <error 
option>); 


Byte Value Meaning 
0 30 Verb 
1 0D Adverb = 
CONTINUE.STATION 
2-3 * Station Number 


CONTINUE.TASK 
CONTINUE.TASK (<task number> <error op- 
tion>); 


Byte Value Meaning 
0 30 Verb 
OE OE Adverb = CONTINUE.TASK 
pi + Task Number 
COPY.TEXT 


COPY.TEXT (<message variable>, <starting 
byte>, <byte length> <message variable>, <start- 
ing byte> <error option>); 


Byte Value Meaning 

0 30 Verb 

1 0C Adverb = COPY.TEXT 

2-3 * Index to Message Reference 

4-5 * Starting Byte Within Text 
Area 

6-7 + Index to Message Reference 

8-9 i Starting Byte Within Text 
Area 

10-11 ?: Length = NUMBER OF 
BYTES 


DCP.DESCRIPTION 
DCP.DESCRIPTION (<DCP number>, <variable> 
<error option>); 


Byte Value Meaning 


Verb 

Adverb = 
DCP.DESCRIPTION 

* DCP Number 

. Segment Number of Variable 
: Offset of Variable 

= Size of Variable 


DRY 
ITN 


DCP.PROCESSORS 


DCP.PROCESSORS 
Byte Value Meaning 
0 34 Verb 
4] 05 Adverb = 
DCP.PROCESSORS 


DCP.PROGRAM.COUNT 
DCP.PROGRAM.COUNT (<DCP number>) 


Byte Value Meaning 
0 34 Verb 
1 02 Adverb = 
DCP.PROGRAM.COUNT 
2 . DCP Number 


DCP.PROGRAM.NAMES 
DCP.PROGRAM.NAMES (<variable>); 


_ Byte Value Meaning 


Verb 

Adverb = 
DCP.PROGRAM.NAMES 

. Filler 

. Segment Number of Variable 
- Offset of Variable 

- Size of Variable 


ARYL 
“ITN 


DCP.PROGRAM.TERMINALS 
DCP.PROGRAM.TERMINALS (<DCP number>, 
<variable>, <program name> <error option>); 


Byte Value Meaning 

0 34 Verb 

1 04 Adverb = 
DCP.PROGRAM.TERMINALS 

2 . DCP Number 

3 * Segment Number of Variable 

4-5 ‘i Offset of Variable 

6-7 e Size of Variable 

8 . Filler 

9 * Segment Number of Program 
Name 

10-11 i Offset of Program Name 

12-13 * Size of Program Name 

DCP.RELOAD 


DCP.RELOAD (<DCP number>, <program name> 
<error option>); 


Byte Value Meaning 

0 34 Verb 

1 00 Adverb = DCP.RELOAD 

2 . DCP Number 

3 - Segment Number of Program 
Name 

4-5 si Offset of Program Name 

6-7 . Size of Program Name 

DEQUEUE 


See FETCH.MESSAGE. 


DISALLOW.INPUT 


DISALLOW.INPUT (<queue number>, <task 
number> <error option>); 


Byte Value Meaning 
0 30 Verb 
l [2 Adverb = 
DISALLOW.INPUT 
2 - Filler 
3 * Queue Number 
4 t Task Number 
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DISALLOW.OUTPUT 
DISALLOW.OUTPUT (<station number>, <task 
number> <error option>); 


Byte Value Meaning 
0 30 Verb 
I 14 Adverb = 
DISALLOW.OUTPUT 
2-3 = Station Number 
4 : Task Number 


EXCHANGE.MESSAGE 
EXCHANGE.REFERENCE (<message variable>, 
<message variable>); 


Byte Value Meaning 
0 30 Verb 
1 04 Adverb = 
EXCHANGE.REFERENCE 
2-3 - Index to Message Reference 
4-5 ‘3 Index to Message Reference 


FETCH.MESSAGE AND DEQUEUE 


FETCH.MESSAGE (<message variable>, <queue 
reference> <wait option>); 


Byte Value Meaning 

0 30 Verb 

1 05 Adverb = 
FETCH.MESSAGE/ 
DQUEUE 

2-3 * Index to Message Reference 

4-5 = Queue Reference 

6 . Wait Option 
00 = WAIT 


01 = DON’T WAIT 


GET.MESSAGE.SPACE 
GET.MESSAGE.SPACE (<message variable>, 
<byte length>); 


Byte Value Meaning 
0 30 Verb 
i 06 Adverb = 
GET.MESSAGE.SPACE 
2-3 Index to Message Reference 
4-5 . Length = NUMBER OF 
BYTES 
LINE.COUNT 
LINE.COUNT 
Byte Value Meaning 
0 31 Verb 
1 00 Adverb = LINE.COUNT 


B4 


LINE.DESCRIPTION 
LINE.DESCRIPTION (<line number>, <variable> 
<error option>); 


Byte Value Meaning 
0 31 Verb 
1 08 Adverb = 
LINE.DESCRIPTION 
2 = Line Number 
3 i Segment Number of Variable 
4-5 * Offset of Variable 
6-7 ‘3 Size of Variable 
LINE.NUMBER 
LINE.NUMBER (<line address>) 
Byte Value Meaning 
0 31 Verb 
1 05 Adverb = LINE.NUMBER 
2-3 * Line Address 


LINE.STATIONS 
LINE.STATIONS (<line number>, <variable> 
<error option>); 


Byte Value Meaning 
0 31 Verb 
1 0D Adverb = LINE.STATIONS 
pi - Logical Line Number 
3 : Segment Number of Variable 
4-5 3 Offset of Variable 
6-7 : Size of Variable 
LINE.STATUS 


LINE.STATUS (<line number>, <variable> <er- 
ror option>); 


Byte Value Meaning 
0 31 Verb 
1 OF Adverb = LINE.STATUS 
2 * Logical Line Number 
3 ‘i Segment Number of Variable 
4-5 : Offset of Variable 
6-7 - Size of Variable 


MODEM.COUNT 
MODEM.COUNT 


Byte Value 


0 31 
1 02 


MODEM.DESCRIPTION 

MODEM.DESCRIPTION (<modem number>, 

<variable> <error option>); 
Byte . Value 


0 31 


Meaning 


Verb 
Adverb = MODEM.COUNT 


Meaning 
Verb 


Byte Value Meaning 
1 0A Adverb = 
MODEM.DESCRIPTION 
2 m Modem Number 
3 * Segment Number of Variable 
4-5 * Offset of Variable 
6-7 * Size of Variable 
QUEUE 


QUEUE (<message variable>, <queue reference> 
<error option>); 


Byte Value Meaning 
0 30 Verb 
1 00 Adverb = QUEUE 
2-3 . Index to Message Reference 
4-5 és Queue Reference 


QUEUE.DEPTH 
QUEUE.DEPTH (<queue reference>) 


Byte Value Meaning 
0 30 Verb 
1 01 Adverb = QUEUE.DEPTH 
2-3 * Queue Reference 


QUEVE.NUMBER 
QUEUVUE.NUMBER (<queue name>) 


Byte Value Meaning 
0 31 Verb 
1 07 Adverb = QUEUE.NUMBER 
2 ‘i Filler 
3 - Segment Number of Variable 
4-5 : Offset of Variable 
6-7 " Size of Variable 


READ.HEADER 
READ.HEADER (<message variable>, <variable> 
<error option>); 


Byte Value Meaning 
0 30 Verb 
1 08 Adverb = READ.HEADER 
2-3 = Index to Message Reference 
4 - Filler 
5 . Segment Number of Variable 
6-7 * Offset of Variable 
8-9 + Size of Variable 
READ.TEXT 


READ.TEXT (<message variable>, <starting 
byte> <byte length>, <variable> <error option>); 


Byte Value 


0 30 
1 0A 


Meaning 


Verb 
Adverb = READ.TEXT 


Byte Value Meaning 
2-3 a Index to Message Reference 
4-5 : Starting Byte Within Text 
Area 
6-7 = Length = NUMBER OF 
BYTES 
8 * Filler 
9 ‘3 Segment Number of Variable 
10-11 ‘3 Offset of Variable 
RECALL 
RECALL (<queue reference> <error option>); 
Byte Value Meaning 
0 31 Verb 
1 13 Adverb = RECALL 
2-3 % Queue Reference 


REDEFINE.LINE 


REDEFINE.LINE (<line number>, <variable> 
<error option>); 


Byte Value Meaning 
0 32 Verb 
1 00 Adverb = REDEFINE.LINE 
Z # Logical Line Number 
3 * Segment Number of Variable 
4-5 ‘i Offset of Variable 
6-7 * Size of Variable 


REDEFINE.STATION 
REDEFINE.STATIONS (<station number>, 
<variable> <error option>); 


Byte Value meaning 
0 32 Verb 
1 01 Adverb = 
REDEFINE.STATION 
2-3 * Logical Station Number 
4 - Filler 
5 - Segment Number of Variable 
6-7 - Offset of Variable 
8-9 ‘3 Size of Variable 


RELEASE.MESSAGE.SPACE 
RELEASE.MESSAGE.SPACE (<message 
variable>); 


Byte Value Meaning 
0 30 Verb 
1 07 Adverb = 
RELEASE.MESSAGE.SPACE 
2-3 si Index to Message Reference 
ROUTE.INPUT 


ROUTE.INPUT (<station number>, <queue refer- 
ence> <reroute> <error option>); 
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Byte Value Meaning 
0 30 Verb 
1 OF Adverb = ROUTE.INPUT 
2-3 i Station Number 
4-5 + Queue Reference 
6 i Reroute Option 
00 = REROUTE 
01 = DON’T REROUTE 


ROUTE.OUTPUT 
ROUTE.OUTPUT (<station number>, <queue ref- 
erence> <error option>); 


Byte Value Meaning 
1 10 Adverb = ROUTE.OUTPUT 
2-3 . Station Number 
4-5 - Queue Reference 


SET.INPUT.LIMIT 
SET.INPUT.LIMIT (<station number>, <limit> 
<error option>); 


Byte Value Meaning 
0 30 Verb 
1 02 Adverb = SET.INPUT.LIMIT 
2-3 - Station Number 
4 * Limit 


SET.OUTPUT.LIMIT 
SET.OUTPUT.LIMIT (<task number>, <limit> 
<error option>); 


Byte Value Meaning 
0 30 Verb 
] 15 Adverb = 
SET.OUTPUT.LIMIT 
2 * Filler 
3 * Task Number 
4 as Limit 


SET.QUEUE.LIMIT 
SET.QUEUE.LIMIT (<queue reference>, <limit> 
<error option>); 


Byte Value Meaning 
0 30 Verb 
1 03 Adverb = 

SET.QUEUE.LIMIT 

2-3 e Queue Reference 
4 7m Limit 
STATION.COUNT 
STATION.COUNT 

Byte Value Meaning 
0 31 Verb 


1 01 Adverb = STATION.COUNT 
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STATION.DESCRIPTION 
STATION.DESCRIPTION (<station number>, 
<variable> <eror option>); 


Byte Value Meaning 
0 31 Verb 
1 09 Adverb = 7 
STATION.DESCRIPTION 
2-3 : Station Number 
4 * Filler 
5 + Segment Number of Variable 
6-7 : Offset of Variable 
8-9 . Size of Variable 


STATION.NUMBER 
STATION.NUMBER (<station name>) 


Byte Value Meaning 
0 31 Verb 
1 06 Adverb = 
STATION.NUMBER 
2 ss Filler 
3 . Segment Number of Variable 
4-5 ze Offset of Variable 
6-7 6 Size of Variable 


STATION.STATUS 
STATION.STATUS (<station number>, 
<variable> <error option>); 


Byte Value Meaning 
0 31 Verb 
1 10 Adverb = STATION.STATUS 
2-3 - Logical Station Number 
4 - Filler 
5 = Segment Number of Variable 
6-7 - Offset of Variable 
8-9 - Size of Variable 
SUBNET.COUNT 
SUBNET.COUNT 
Byte Value Meaning 
0 31 Verb 
1 04 Adverb = SUBNET.COUNT 


SUBNET.DESCRIPTION 
SUBNET.DESCRIPTION (<queue number>, <var- 
iable> <error option>); 


Byte Value Meaning 


Verb 

0C Adverb = 
SUBNET.DESCRIPTION 

: Queue Number 

. Segment Number of Variable 

ze Offset of Variable 

* Size of Variable 


HP wd 


SUBNET.STATIONS 
SUBNET.STATIONS (<queue number>, 
<variable> <error option>); 


Byte Value Meaning 
0 31 Verb 
1 OE Adverb = 
SUBNET.STATIONS 
2 * Queue Number 
3 . Segment Number of Variable 
4-5 . Offset of Variable 
6-7 - Size of Variable 


SUBNET.STATUS 


SUBNET.STATUS (<queue number>, <variable> 
<error option>); 


Byte Value Meaning 
0 31 Verb 
1 15 Adverb = SUBNET.STATUS 
2 * Queue Number 
3 i Segment Number of Variable 
4-5 * Offset of Variable 
6-7 i Size of Variable 
TASK.NAME 


TASK.NAME (<task number>, <variable> <error 
option>); 


Byte Value Meaning 
0 31 Verb 
| 11 Adverb = TASK.NAME 
2 : Task Number 
3 * Segment Number of Variable 
4-5 ‘3 Offset of Variable 
6-7 = Size of Variable 


TASK.NUMBER 
TASK.NUMBER (<task name>) 


Byte Value Meaning 
0 31 Verb 
1 12 Adverb = TASK.NUMBER 
2 ‘3 Filler 
3 * Segment Number of Variable 
4-5 * Offset of VAriable 
6-7 = Size of Variable 


TASK.STATUS 
TASK.STATUS (<task number>, <variable> <er- 
ror option>); 


Byte Value Meaning 
0 31 Verb 
1 16 Adverb = TASK.STATUS 
2 " Task Number 
3 ag Segment Number of Variable 
4-5 ‘ Offset of Variable 
6-7 = — Size of Variable 


TERMINAL.COUNT 
TERMINAL.COUNT 


Byte Value Meaning 
0 31 Verb 
1 03 Adverb = 


TERMINAL.COUNT 


TERMINAL.DESCRIPTION 
TERMINAL.DESCRIPTION (<terminal number>, 
<variable> <error option>); 


Byte Value Meaning 


Verb 

Adverb = 
TERMINAL.DESCRIPTION 
. Terminal Number 

- Segment Number of Variable 
7 Offset of Variable 

* Size of Variable 


DPN 
“SN 


WRITE.HEADER 
WRITE.HEADER (<message variable>, 
<variable> <error option>); 


Byte Value Meaning 
0 30 Verb 
1 09 Adverb = WRITE.HEADER 
2-3 = Index to Message Reference 
4 * Filler | 
5 ** Segment Number of Variable 
6-7 - Offset of Variable 
8-9 * Size of Variable 
WRITE.TEXT 


WRITE.TEXT (<message variable >, < starting byte >, 
<byte length >,<variable><error option >); 


Byte Value Meaning 

0 30 Verb 

1 0B Adverb = WRITE.TEXT 

2-3 * Index to Message Reference 

4-5 * Starting Byte within Text 
Area 

6-7 si Length = NUMBER OF 
BYTES 

8 - Filler 

9 - Segment 

10-11 si Offset of Variable 
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ACCEPT 
Byte Value Meaning 
0 33 Verb 
1 06 Adverb = ACCEPT 
2 . Filler 
3 * Segment Number of Input CD 
Area 
4-5 * Offset of Input CD Area 
ENABLE INPUT 
Byte Value Meaning 
0 33 Verb 
1 00 Adverb = ENABLE INPUT 
2 ss Filler 
3 2: Segment Number of Input CD 
Area 
4-5 : Offset of Input CD Area 
6 53 Filler 
7 - Segment Number of KEY 
8-9 . Offset of KEY 
10-11 . Size of KEY 
DISABLE INPUT 
Byte Value Meaning 
0 33 Verb 
1 01 Adverb = DISABLE INPUT 
pi = Filler 
3 = Segment Number of Input CD 
Area 
4-5 = Offset of Input CD Area 
6 - Filler 
7 + Segment Number of KEY 
8-9 si Offset of KEY 
10-11 ‘i Size of KEY 
ENABLE OUTPUT 
‘Byte Value : Meaning 
0 33 Verb 
1 02 Adverb = ENABLE 
OUTPUT 
2 * Filler 
3 . Segment Number of Output 
CD Area 
4-5 - Offset of Output CD Area 
6 * Filler 
7 - Segment Number of KEY 
8-9 ‘3 Offset of KEY 
10-11 . Size of KEY 
DISABLE OUTPUT 
Byte Value Meaning 
0 33 Verb 
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Byte Value 
1 03 
? * 
3 * 
4-5 * 
6 * 
7 * 
8-9 , 
10-11 e 
RECEIVE 
Byte Value 
0 33 
1 04 
* 
3 * 
4-5 * 
6 * 
7 * 
8-9 
10-11 
SEND 
Byte Value 
0 33 
1 05 
9) * 
3-4 . 
5 * 
6-7 - 
8 * 
9 ** 
10-11 * 
12-12 is 


Meaning 


Adverb = DISABLE 
OUTPUT 

Filler 

Segment Number of Output 
CD Area 

Offset of Output CD Area 
Filler 

Segment Number of KEY 
Offset of KEY 

Size of KEY 


Meaning 


Verb 

Adverb = RECEIVE 
Adverb 2 = WAIT IF NO 
MESSAGE = 00; 

= DO NOT WAIT IF NO 
MESSAGE = 01 

Segment Number of Input CD 
Area 

Offset of Input CD Area 
Filler 

Segment Number of Data 
Area 

Offset of Data Area 

Size of Data Area 


Meaning 

Verb 
Adverb = SEND 
Adverb 2: 
BIT 7 (MSB) = 0 = WAIT 

1 = NOWAIT 
BITS 6-1 = 0 
BIT 0 (LSB) = 0 = EGI 

1 = EMI 


Skip Control 

Segment Number of Output 
CD Area 

Offset of Output CD Area 
Filler 

Segment Number of Data 
Area 

Offset of Data Area 

Size of Data Area 


NOTE 


* WAIT is used only by MPLII. 


APPENDIX C 
SAMPLE CMS 
DATA COMMUNICATION PROGRAMS 


The following describes a model data comm sys- 
tem consisting of an MCS, functionally equivalent 
COBOL, MPLII, and RPG programs, and an NDL 
program. Each program is illustrated by means of a 
functional description followed by the program list- 
ing. This system is not intended to be used in a pro- 
duction environment; it is merely an example of the 
possible use of DC subsystem facilities. 


By including these sample programs, the interface 
between the various levels of the DC subsystem is 
illustrated. 


THE MODEL MCS 


Functional Description 


The model MCS is a slightly expanded version of 
the MCS published as an example in the MPLII Ref- 
erence Manual. It has the following characteristics: 


1. When started, the MCS participates for 
both input and output for all stations defined 
in the network. 


2. Each line is made ready. 


3. On receiving an input message, the MCS 
returns it to the sending station if no control 
character was used, or interprets the message 
as a command if a control character was used. 


4. DC commands may be input from the sys- 
tem console. 


5. If a user DC task attempts input from a 
subnet or output to a station, the MCS allows 
such input/output after having performed the 
appropriate ROUTE.INPUT or ROUTE.OU- 
TPUT operations. (That is, the MCS becomes 
non-participating for those stations with which 
_the user task communicates.) 


6. ENABLE.INPUT, ENABLE.OUTPUT, 
DISABLE.INPUT, and DISABLE.OUTPUT 
messages have no effect on the MCS. 


7. More than one DC task is supported. 


8. Any one task may use one subnet at a 
time; that subnet must not have more than ten 
stations in it. (Note: This is not a system re- 
striction but one peculiar to this MCS.) 


9. When a task goes to end-of-job, the MCS 
again participates for the stations with which 
the task was communicating. 


Detailed Description 


identifiers 


User-defined names are defined as they are en- 
countered during the discussion of the functions of 
the MCS. However, there are a number of univers- 
ally-used identifiers which are described here (see 
seq. 1600-16400). 


Note the use of defines for various message types 
(seq. 1800 -2200); also BEGIN is defined as [D0;[, 
CH as [CHARACTER], TRUE as [ [@FFFF@], and 
FALSE as [@0000@]. Defining identifiers for queue 
references is also useful (seq. 2400 -2700). MSG is a 
message reference and MSG.HDR is a data structure 
into which message headers are placed (seq. 3500 - 
5500). TEXT is used to contain message text of com- 
mand messages. 


Director 


The main driver of the MCS is near the end of the 
program starting at seq. 68800. The algorithm used 
is: 


1. Initialize. 

2. Take the next message from the MCS 
queue. 

3. Log the message. 

4. If the message does not have ‘‘complete 
and successful’? in the result field, then 
analyze the result and go to step 6. 

5. Perform action routines as determined by 
message type. 

6. Return message space to DC buffer if still 
in use. (That is, if pointed to by MSG.) 

7. Stop if commanded by the operator. 

8. Go to step 2. 


Each step in this simple logic flow will be described 
in more detail. 


Initialize Routine 
Name: INITIALIZE. Seq: 66000-68700. 


This routine performs the following: 


1. Displays program version number. 

2. Space-fills print buffer (used for logging). 

3. Routes input and output messages to the 
MCS queue for all stations. 
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4. Sets the MCS queue limit to five messages. 
5. Makes all lines ready. 


NOTE 
1. MAX.STAS and MAX.LINES con- 
tain the highest valid logical station 
number and logical line number respec- 
tively. These are found (seq. 6700 - 
6800) using built-in functions. 


2. The LINE.PENDING flag is used to 
prevent multiple ‘‘make line ready’”’ 
messages being queued to the network 
controller, thus saving message space. 


3. The basic technique of creating a 
message is demonstrated at seq. 67900 
-68300. 


Take Message from MCS Queue 
This is done at seq. 69900 -70000. 


The FETCH.MESSAGE built-in procedure points 
MSG to the next message in the MCS queue, and 
delinks that message from the MCS queue. 


The READ.HEADER built-in procedure copies 
the message header pointed to by MSG into 
MSG.HDR. 


NOTE 
FETCH.MESSAGE has a NOWAIT 
option which allows the MCS to contin- 
ue executing, even if no messages were 
in the MCS queue. (To check this, 
compare MSG with the null value using 
the NULL built-in function.) This fea- 
ture must be used with acumen as, if 
used carelessly, the MCS can get into 
a processor-bound loop. This means, 
on the B 80, that user tasks do not get 
any processor time because the MCS 
has a higher priority. However, if used 
in conjunction with conditional I/O, for 
example, it can increase the efficiency 
of the MCS. The motto here is: BE 
CAREFUL. 


Log the Message 
This is done at seq. 70100 -70300. 


It is always useful to write debug-code into a pro- 
gram from the start. 


Here, compile-time and run-time options set or re- 
set the debug code. If the user dollar - option DE- 
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BUG (seq.300) is set, the debug code is compiled 
into the program. When the MCS has been de- 


bugged, this code can be excluded from the final 
version merely by resetting this option for the final 
compile. 


The procedure LOGGIT (seq. 64600 - 65600) 
prints logical station number, message type, and up 
to the first 1200 characters of message text for all 
messages taken from the MCS queue. This can be 
done only if the flag PRINT.EM is true. (PRINT.EM 
is set or reset from the SPO by SD and ED com- 
mands.) 


Process Non-Zero Results 


This is done by calling DO.RESULT (seq. 47200 
- 49300) at line 70600. | 


A non-zero result implies that there is a special 
circumstance associated with this message. 


The procedure DO.RESULT is not complete in 
that is handles only three of the ten defined results. 
A production MCS should be coded to handle all 
possible results. The three handled are: 


1. Line not ready. 

2. Station not ready. 

3. Control character or WRU character re- 
ceived. 


The first two of these asks the operator to ready 
the line or station as required. If a control/WRU is 
received, the message is handled by the DO.I- 
NPUT.MSG routine which is described later. 


NOTE 

The control/WRU received result indi- 
cates that the associated message is an 
input message consisting of either the 
WRU character or the station’s control 
character followed by the message text. 
(The actual case can be determined 
from the events field in the message 
header.) The MCS programmer and the 
NDL programmer must agree on the 
following: 


1. Will control characters be recognized? 
2. Will they be passed to the MCS as part of 
the text? 


In a ‘real’? MCS, this procedure would be more 
comprehensive. It would perform more error han- 
dling (analyzing the events field and perhaps logging 
the specific error on disk or the SPO). 


Perform Action Routines 
The code for this is at seq. 70600 - 74900. 


A switch is made depending on the value of the 
message type field (MSG.TYPE), and a different ac- 
tion is taken depending on the type of message. The 
only message types which are handled here are: 


1 Input (from remote device) 

6 Station has been made ready 

0 Line has been made ready 

15 DC input from SPO 

18 Request (from MCP) to attach a task to a 
subnet 

19 Request (from MCP) to attach a task to a 
station 

25 Task has gone to end-of-job 


It is obvious that a ‘‘real’’? MCS would handle the 
majority, if not all, of the possible message types. 


Each action routine is now described in turn. 
Input Message (1) 


An input message is handled by DO.INPUT.MSG 
(seq. 37100-38900) which is called at seq. 70800. (It 
may also be called from DO.RESULT at seq. 4890.) 


DO.INPUT.MSG performs the following: 


1. Decrements the unprocessed input message 
count for the station which sent the message 
(CONTINUE.STATION). 

2. If the control character received flag is not 
set, it sends the message back to the station; 
otherwise, 

3. Sets SPO.MSG to false (indicating that the 
message was not from the SPO); sets TEL- 
L.SPO to false (indicating that any reply to 
this command is to be returned to the sending 
station). Depending on the command, TEL- 
L.SPO may be reset to true in the DO.DC.- 
INPUT procedure; calls DO.DC.INPUT (seq. 
49700 - 57500) to handle this message as a 
command text. 


NOTE 

1. For every input message which ap- 
pears on the MCS input queue, the 
MCS must issue a 

CONTINUE.STATION command to 
acknowledge receipt of the message. If 
this is not done, the network controller 
is prevented from obtaining DC mes- 
sage space for a station when the num- 
ber of unacknowledged messages 
(which have been placed on the MCS 


queue from that station) exceed its in- 
put limit. The input limit for a station 
is set using the SET.INPUT.LIMIT 
statement, the default being two. 


2. The most efficient way of re-routing 
a message is to change the required 
fields in the message header and put it 
on the network controller queue (or 
subnet queue if sending it to a task). 
(See seq. 37800 - 38100.) 


3. By setting the retry field in the mes- 
sage header to @FF@, the MCS is in- 
dicating that the retry count is to be 
handled completely by the network 
controller. Any other value would set 
the retry count for the corresponding 
station to MSG.RETRY. This facility is 
B 80 implementation dependent. How- 
ever, if required it may be emulated on 
other CMS systems by inclusion of the 
following code between (PTO). Seq 
40001500 - 40001600 of REQUEST 
UPOLLED and seq 70000500 - 
70000600 of REQUEST SELECTIT. 
(See sample NDL program.) 


IF RETRY = 255 THEN INITIALIZE 
RETRY. 


Make Station Ready (6) 


A message of this type appears in the MCS queue 
(with result = 0) as a confirmation that a station has 
been made ready. This means that the MCS must 
have previously queued a make station ready mes- 
sage to the network controller. 


This action routine is coded at seq. 71300 - 71900. 
The actions taken are: 


1. Set STA.PENDING flag for this station to 
0, indicating action complete. 


2. Inform the operator (at the SPO) that the 
station is ready. 


Make Line Ready (8) 


A message of this type appears in the MCS queue 
(with result = 0) as a confirmation that a line has 
been made ready. This means that the MCS must 
have previously queued a make line ready message 
to the network controller. 
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This action routine is coded at seq. 72100 - 72700. 
The actions taken are: 


1. Set LINE.PENDING flag for this line to 0, 
indicating action complete. 
2. Inform the operator that the line is ready. 


Operator Input (15) 


A message of this type appears in the MCS queue 
as a result of the operator inputting a DC message 
at the SPO. 


The action routine (DO.DC.INPUT) is called at 
seq. 73700 after setting TELL.SPO and SPO.MSG to 
true. (This is necessary to distinguish type 15 mes- 
sages from type 1 messages when control-flag = 
true.) 


Procedure DO.DC.INPUT (seq. 49700 - 57500) an- 
alyzes messages aS command strings and performs 
actions accordingly. The available commands are: 


END ‘terminates the MCS 

RS <n> ‘readies station <n> 

RL <n> ‘readies line <n> 

TO <n> <text> ‘sends <text> to station <n> 
TO SPO <text> ‘sends <text> to SPO 


SS <n> <text> :see TO 
SS SPO <text> ssee TO 
SS :start debug print 
ED ‘end debug print 


QM <n> <text> :queue a message with 


<text> on subnet queue <n> 


ZIP <text> ‘pass <text> to SCL/loader 
WRU ‘return version message 
WM ‘see WRU 


DO.DC.INPUT calls two routines (LOOP.UP and 
SCAN) to handle the logical analysis of the com- 
mand string. As the functions are not directly related 
to data comm, they will not be described in detail, 
-Eut a brief description is given for completeness. 


LOOK.UP (seq. 27500 - 30000) performs a linear 
search through the VERB.TABLE (see seq. 8700 - 
9700 and 77900 - 79000) looking for a match between 
the current token and the name of the verbs in 
VERB.TABLE. | 


SCAN (seq. 16900 - 27100) uses SOURCE as input 
and TOKEN as output (seq. 10100 - 13800). After a 
call on SCAN, TOKEN contains the next identifier, 
and the number of special character from SOURCE. 
T.SIZE contains the binary equivalent of TOKEN if 
it is a number. WHICH.VERB identifies the verb. 
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The logic of DO.DC.INPUT proceeds as follows: 


1. Copy up to 255 characters of the message 
text into SOURCE. 

2. Set-up variables for SCAN. 

3. If the message came from a remote station, 
skip over the first token as it is the special 
control character. (This assumes that the con- 
trol character for any station is not a space 
character and is non alpha-numeric, and that 
the network controller passes the control 
character to the MCS as part of the message 
text. This need not be the case, but it is used 
here as a convention.) 

4. Search for the verb. 

5. Take action appropriate to the verb found. 


The logic for each verb is fairly straightforward. 
The major points are noted below: 


END The quit flag is set, and this is used 
to stop the main loop (seq. 52000 
and 75100). 

RS The READY.STATION procedure 


(seq. 32900 -35100) sets 
STA.PENDING flag to 1. (This 
prevents multiple make station ready 
messages existing for a station at any 
one time.) It then constructs a make 
Station ready message and queues it 
to the network controller queue. Note 
that GET.MESSAGE.SPACE is used 
to get a new message header with no 
associated message text. This means 
that the next space occupied by the 
RS message is returned to the DC 
message pool. Although trivial in this 
case, the technique can save space 
when used in a read MCS. This 
procedure has no effect if 
STA.PENDING is 1 on entry. 


RL Uses READY.LINE (seq 35500 - 
36700) and is very similar to RS. 


The main point of interest in this 
command is the use of procedure 
TELL (seq. 30400 -35500). This 
procedure sends the message TALE 
(in its entirety if the second 
parameter is either missing or not of 
type fixed, or the first TALE.SIZE 
characters otherwise) to either the 
SPO or a remote station. The logic 
proceeds as follows: 1) calculate how 
many characters are to be sent; 2) if 
the message is for the SPO then 
display it; otherwise: 3) compare the 
number of characters to be sent +1 
(for a form feed character) with the 


TD/SS 


size of the text area of the message 
pointed to by MSG. If the current 
text area is too small, the current 
message is released and gerted with 
the required text size; and 4) 
construct the message (placing a form 
feed character at the beginning) and 
queue it to the network controller 
queue. 


SD | Opens the printer file and writes 
heading (seq. 39300 -40700). A real 
system would use conditional I/O. 
(Make sure files have enough 


buffers. ) 

ED Closes printer file. Same comment as 
for SD. 

QM Constructs an input message with 


text as for command and places this 
message on a subnet queue. 


ZIP Passes message to SCL/loader. The 
error option in ZIP should be used 
as an invalid SCL string following 
ZIP, causing the MCS to be aborted 
(DS/DP) by the MCP. 


Uses TELL to send version message 
(seq. 1200). 


WRU/WM 


If LOOK.UP cannot find the verb, or a verb 
which ts restricted to SPO, use is entered from a re- 
mote device and the last entry in the ‘‘case’’ is per- 
formed. 


Attach Task to Subnet Queue (18) 


A message of this type is placed on the MCS 
queue as part of the processing of the first input data 
communication request from a task which refers to 
this subnet queue. The message is processed by 
DO.ATTACH.SUBN (seq. 57900 -61700), and the 
logic performed is: 


1. Determine the number of stations on the 
subnet and their logical station numbers (seq. 
58600 -59400). 


2. Store these in the table TASK.STATIONS 
(see comments at seq. 14600 - 15400) unless 
the table slot for this task is already in use, 
in which case access to the requested subnet 
is denied. 


3. Route the input for each station in the 
subnet to the task. (Note that the MCS must 
explicitly route each station in the subnet fam- 
ily.) 

4. Allow the task to access the subnet queue. 


Attach Task to Station (19) 


A message of this type is placed on the MCS 
queue by the MCP as part of the processing of the 
first output data communications request from a task 
which refers to this station. The message is pro- 
cessed by DO.ATTACH.STA (seq. 63900 - 64200) 
which routes output from the task to the network 
controller queue and allows the task to communicate 
with the station. 


Detach Task (25) 


A message of this type is placed on the MCS 
queue by the MCP when.a data comm task goes to 
end-of-job. The action taken is a design feature of 
the MCS. In this case, DO.TASK.DETACH (seq. 
62100 - 63500) is called to re-route input messages 
for the stations which were attached to the task back 
to the MCS queue. If this re-routing was not per- 
formed, then any input messages from these stations 
would pile-up on the subnet queue until the unpro- 
cessed input count exceeded the queue limit of the 
subnet queue. (Note that the task no longer exists 
and it is unnecessary to re-route output messages.) 


Return Message Space 


This is performed at 75000. It is done so that mes- 
Sage space is returned to the pool of available DC 
message space as soon as possible. If, for instance, 
a message appears in the MCS queue which is ig- 
nored, (for example: enable-input) associated mes- 
Sage space would become free. 


Stop 


If the quit flag is set to 1 (seq. 52000), the MCS 
prints ‘‘MCS HALTED” and goes to end-of-job 
(seq. 75100 - 75400). 


NOTE 
DO NOT USE THIS MCS IN A PRO- 
DUCTION ENVIRONMENT 


MODEL.MCS does not perform any serious error- 


handling. Should an error occur it is aborted 
(DS/DP) by the MCP. This is not desirable in any 
data comm system. 


It is hoped that the above narrative is of help to 


- potential MCS authors. 
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SAMPLE MCS PROGRAM 


SCONTROL 300 DATA 2000 06000100 
SRESET CHECKS 00000200 
$SET DEBUGN 00000300 
$LIST 00000400 
SNOWARNING NOOSOSOa 
€HCS 4 00000600 
Whhihhiniitmmahhinhhihhinahitmbmhinmithhiian hebben mecbesd sicbiececscOoNteds 
a 4% 00600510 
fA PROPRIETARY PROGRAM MATERIAL mOCOO0SLS 
FA wv OOR0620 
x THIS MATERTAL IS PROPRIETARY TO BURROUGHS CORPORATION AND IS xoo000é25 
% NOT TO BE REPRODUCED, USED OR DISCLOSED EXCEPT IN ACCORDANCE WITH 490000630 
% PROGRAM LICENCE OR UPON WRITTEN AUTHORIZATION OF THE PATENT RUCOCOSS5 
% DIVISION OF BURRDUGHS CORPORATION, DETROIT, MICHIGAN 48232. mOOO00S40 
OQ0004843 

4 COPYRIGHT (€) 1979 BURROUGHS CORPORATION 2 CO00055 0 
4 mOOOCO4S55 
KhhAhhhAhianhnthnbeanhbahrnsahbhbhhbhhashhhbn hehehe hanhnhhbhdldinaiid GORE) 
PROCEDURE GLDWEIRDHAROLD; CO800700 

A CGOGGC99 
% THIS SAMPLE MCS SHOULD GE READ IN CONJUNCTION WITH 00060900 
% THE NOTES PROVIDED. (FILEID: DCMCSNOTES.) HO0G0910 
KA COG0OS20 
Lkthahrsaahaah THIS 3S A SAMPLE ONL ¥ AHeEee RAR OGGS0F30 
z GOCCI94G 
% AND IS NOT SUITABLE FOR USE IN A PRODUCTION ENVIRONNENT. 62000950 
A GOCO1000 
DEFINE VERSION OOCO1100 
£"MODEL HCS MARK 3.0.2"2;7 00001200 

FA OOOC1700 
x OGGI1400 
FA 06901300 
DEFINE 06001406 

x MESSAGE TYPES GOG01700 
INPUT fif, OC0O1 BOO 
OUTPUT fof, OGOO19O0 
ENABLE. INPUT 242, 06002000 
MAKE.STA.RDY £62, 00002100 
MAKE.LINE.RDY £82, , COOKL 200 

h QUEUES 000023500 
MCSQ £@O000RE, 60002400 

NCQ £R10002, 00902500 

SUBQ £A2000REL, 00002400 

STAQ £RICOORE, OC002700 

: MISCELLANEOUS OOGOLERC 
CH ECHARACTERE, OOOO29O0 
BEGIN £DO7£; 00003000 
TRUE LA@FEFFRE, OGOO7100 
FALSE FROCOORE, 66003200 
MAX.ERRS £7£; Q0002400 

i : 00005400 
DECLARE 00003500 

MSG MESSAGE. REFERENCE, 09002600 

1 MSG.HDR CH(35), 00602700 


@ MSG.LINE CH(1), 00003800 


mn 


IRR RAGE SS 


~“~ 


Cc 


aS$ 


yes 


wt re re 


rk ot re 


ae ot 


e MSG.RESULT CHL), 
2 MSG.TYPE CH(1), 
€ MSG.TSK CHL), 
@ DUMMY CH(1), 
2 MSG.STA FIXED, 
e DUMMY CHL), 
@ MSG.EVENTS CHS), 
3 DUMMY CHC1), 
3 MSG.CC.RECVD BIT(1), 
3 DUMMY BIT(7}, 
3 DUMMY CHCL), 
@ 4S6.SU8Q FIXED, 
2 MSG.LNTH FIXED, 
2 MSG.NAX.LNTH FIXED, 
2 BUMMY CH(1), 
@ MSG.RETRY CH(1}, 
2 DUMKY CH(14), 
TEXT CH(233), 
QUIT FIXED, 
LSN FIXED, 
LLN FIXED, 
MAX. SUBQS FIXED, 
MAX ESTAS FIXED, 
MAX LINES FIXED; 


MAX. SUBQS>=SUENET .COUNT-1} 
MAX .STAS: =STAT ION. COUNT} 
MAX LINES? =LINE COUNT; 


DECLARE 

1 STA.TABLECHAX.STAS) = CH(1), 
@ STA. PENDING BIT(L), 
@ DUMHY BIT(7}, 

1 LINE. TABLE(MAX LINES). CH(1), 
é LINE. PENDING BIT(1), 
2 DUMMY BIT (73; 


MAX.STAS=-1; 
MAX LINES :-1} 


COMMAND HANDLING STUFF. 


DEFINE V.TAB.SIZE £0772; % 7 # NO. OF VERBS 
SEGMENT VERE.SEG(V. TAB. SIZE); 
REMAP VERE.SEG: 
1 VERB.TABLE (Y.TAB.SIZE) CHC7}, 
¢ VERB CH(4), ANAME OF COMMAND 
2 VERB.NOQ FIXED, | mWHICH. VERE - ALLOWS SYNONYNS 
e VERE.SPO.ONLY CH(1}; TRUE IF VERE RESTRICTED TO SPO USE 


00003900 
00004000 
00004100 
OG044,2N0 
00694300 
60004400 
09004500 
00004400 
00004700 
00006800 
00004900 
COGC5000 
60005100 
OOGO5200 
00005300 
00005400 
0OGGS500 
06005400 
00005760 
00605800 
00905900 
00606000 
00004100 
00606200 
00004300 
000044600 
OOON4500 
06004600 
00006700 
(0006800 
OHOESOD 
00007000 
00007100 
00007200 
00607300 
0007400 
00007500 
00007400 
86007700 
00067800 
00007900 
06008000 
00008100 
00008200 
05608300 
O0O0R400 
00868500 
02008400 
00008700 
00008800 
00008900 
06009600 
00009100 
00009200 
00009300 
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wk Sk nt 


DECLARE 
WHICH. VERB FIXED; mIMDEX TO RECOGNISE CURRENT VERB 
SPO.MSG FIXED, ATRUE IF CURRENT MESSAGE FROM SPO 
TELL.SPO FIXED; wIRUE TF REPLY IS TO SPO 


SCANNER STUFF 


SEGMENT TIPE.SEG(128); 


REMAP TIPE.SEG: TIPEC128) CH(L); 
DECLARE 
ALL. DONE FIXED, ATRUE IF HO NORE TO SCAN IN THIS REC. 
SOURCE CH(253}, ATEAT CURRENTLY BEING SCANNED 
M.SIZE FIXED, ASLZE OF SOURCE 
PTR FIXED, OFFSET IN SOURCE OF REXT CHAR. 
CHAR CH(1},; MCHARACTER WHAT SCANNER IS LOCKING AT 
C.TIPE FIXED, ZCODE INDICATING TYPE OF "CHAR" = 
vA 0 = ALPHA 
ih 1 = NUMERIC 
rs > = SPECIAL CHARACTER 
4 & = SPACE 
h 9 = NON-GRAPHIC CHARACTER 
TOKEN CH(O); *POINTS TO CURRERT SYHSOL 
SEGKENT TOKEN .SEG(2ée); 
REMAP TOKEN.SEG! 
T. TYPE FIXED, % TOKEN TYPE 
T.SIZE FIXED, 4 TOKEN STRING LENGTH 
T.VALUE FIXED; & TOKEN VALUE IF T.TYPE IS NUMEER 
T STRING CH(255), %Z TOKEN STRING 
T.DUNMY CHC); A 
DEF INE 
IDENTIFIERLO£, 
NUMNGER fiz; 
STRING fof, 
SPECTAL .CHARS3£, 
TERMINATR £42, 
BLANK ff, 
RETH £62; 
END.CHAR Z£@FFGZ, 
IDENTIFIER. TOKEN £(T. TYPE=IDENTIFIER) 2, 
NUNEER. TOKEN ECT. TYPE=HUMEER DZ, 
STRING. TOKEN ECT. TYPE=STRING DZ, 
SPECTAL CHAR. TOKEN £(T. TYPE=SPECIAL. CHAR )Z, 
TERMINATOR. TOKEN £(7. TYPE=TERMINATR OZ; 
SPACE. TOKEN E(T. TYPE=BLANK) 2, 
RETURN. TOKEN £(7. TYPESRETH) 2; 
OTHER DECLARATIONS FOR USE OF THE GENERAL POPULACE 
DECLARE 
1 TASK.STATIONS CH(199), 
2 TSK.SIN FIXED; 


TASK.STATIONS 15 USED TO HOLD LSN OF EACH STATION WHICH 
TS CAPABLE OF INPUTING TO A TASK. THERE IS A SLOT IN THIS 
TABLE FOR UP TO 9 TASKS. EACH SLOT CONSISTS OF A NUMBER 


00009490 
00009500 
Q00074600 
O0009700 
00007600 
OOGHPFOO 
00020000 
06010100 
G0010200 
00010360 
60010400 
06010300 
00010400 
00010700 
00010800 
00010900 
00011000 
G0G11160 
00011200 
00611300 
00011400 
OOOLTS00 
00011400 
00011709 
90011800 
00011900 
OOO12000 
00012160 
00012200 
00012500 
00012400 
00012500 
60012600 
60012700 
00012800 
00012900 
OG013000 
$0013109 
00012209 
00015300 
00013400 
00013300 
00013460 
00013700 
00012500 
00013900 
00014000 
00014100 
00014200 
00014300 
00014400 
90014300 
00014400 
00014700 
00014800 


% (FIXED VALUE) INDICATING THE NUMBER OF STATIONS FOR THIS TASK OOO14900 
2 FOLLOWED BY A LIST OF LSN-S FOR THIS TASK. SINCE EACH SLOT 60015000 
% IS 11 NUKBERS LONG THERE IS A RESTRICTION OF 10 STATIONS 00015100 
% PER TASK, FURTHERMORE A TASK CAN ONLY COMMUNICATE WITH 1 SUBNET AT 00015200 
% ANY GIVEN TIME. THIS TABLE IS USED IN DO.ATTACH.SUBN AND 00015300 
%  TASK.DETACH. 00015400 
yi 00015500 
DECLARE 60015400 

1 P.BUF CH(132), 00015700 

2 PSTN CH(S), 60015800 

2 DUMMY CH(1), 00015900 

2 P.TYP CH(5), 00016000 

2 DUMMY CH(4), 00016100 

2 P.TXT CH(120), 00016200 

PRINT.EM FIXED} SMKEY TRUE IF MESSAGES ARE TD BE PRINTED 00016300 
FILE P WORK.AREA P.BUF} 00016400 
$PAGE 00016490 
FORWARD PROCEBURE DO.DC. INPUT} 00014500 

x 00016400 
Se OCT TTT EO STE GCE STISSCETE SEN O016700 
yh OOCLEB00 
PROCEDURE SCAN; 00016900 

%, 00017000 
% 1 EXTRACT THE NEXT TOKEN FROM THE PARAMETER STRING 00017100 
% AND PLACE IT IN T.STRING. THE TYPE, LENGTH, AND (FOR NUMBERS) 00017200 
% THE BINARY EQUIVALENT ARE ALSO NOTED. 00617300 
74 00017400 
DEFINE COPY £ BEGIN ZBIG ON CORE - LOW ON TIME OVERHEAD 09617500 

IF ALL.DONE THEN ZEND OF INPUT 00017400 
BEGIN 60017700 

T. TYPES=TERMINATR}T.SIZE!=1j37T.STRING:=END.CHAR} 00017800 

END? ELSE BEGIN 60017900 
SUBSTR(T.STRING, T.SIZE,1) s=SUBSTR(SOURCE,PTR;1)} ZCOPY 00018000 
PTRi+1; T.SIZE:4+13 00018100 

ALL .DONE!=(PTR>=H.SIZE)} 60018200 
ENDFENDS; 00018300 
DEFINE 00018400 
NEXTE 60018500 

IF ALL. BONE THEN UNDO EXTRACT} 00018400 
CHAR?=SUBSTR (SOURCE, PTR; 1)3 : 00018700 
C.TIPES=TIPE(CHAR?S, OCC18800 

ALPHA £(C.TIPE=0}8, 00013900 
NUMERIC £ (C.TIPE=i)f, 00019000 
DOTE(CHAR="."£, 00919100 
CONJUNCTIONS( (CHAR="-")) £3 00019200 

$IF CHECKS THEN 00019300 
DISPLAY ("START GET. TOKEN") 3 00019400 
DISPLAY((IF CONTROL.MODE THEN "TRUE" ELSE "FALSE")); 00019500 
tEND 00019600 
DD EXTRACT} “TO PROVIDE COMMON RETURN POINT 00019700 

DO SKIP.BLANKS FOREVER; ZSKIP. LEADING SPACES OOCLEBCO 

IF PTRo=MvSIZE OR ALL.DONE THEN 00019900 

BEGIN ALL. DONES=TRUESCOPYSUNDD EXTRACTFEND} 00020000 

NEXT}. COC2O100 

IF CHAR /= " " THEN UNDO SKIP. BLANKS? | 00020200 
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f 


— 


if 
f 
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ma OR 


f 
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PTRi+i3 
END SKIP. BLANKS; 
T.SIZES=CT TYPES =03} 
T.STRINGS=" "3 


HAVING DONE ALL THAT 8ORING STUFF WE CAN NOW GO GET A TOKEN 


IF ALPHA THEN 


BEGIN 


T.TYPES=IDENTIFIER; 
DO FOREVER; 


END; 
END; 


IF ALPHA THER 


THEN 


UNDO EXTRACT; 


ELSE 
BEGIN 
COPY; 
NEXT; 


END; 


IF HUMERIC THEN 


BEGIN 


T. TYPES =NUMEER; 
T. VALUE? =0; 
DO FOREVER? 


IF ROT RURERIC THER 
UNDO EXTRACT; 


T VALUE? =T.VALUES1O-"O"+CHAR? ZBINARY CONVERT. 


COPY} 
NEXT} 
END} 
END} 
IF CHARS" THEN 
BEGIN 


T.TYPE2=STRING; 
PTRe+1; 
BO FOREVER} 


sere 
NEAT? 


IF CHARS"""" THEN 
BEGIN 


IFCPTRI¢iJ:=M.SIZE THEN UNDO EXTRACT; 


IT 
hE X Ly 


IF CHAR /= """'" THENZWE ARE UNSTRUNG 


YHDO CATRACT;} 
END; 
IF 
CHAR="_" OR 
CHAR="/" DR 


CHAR="=" THEN NASTY. STRING?=TRUE; 


COPY; 


AWE HAVE AN IDENTIFIER 


ATHIS IS TRUE MOST TIMES 
BEGIN COPY;NEXTFENDSELSE 
IF NOT (NUMERIC OR CONJUNCTION) 


AWE HAVE A NUMBER 


wLOOK FOR THE REST 


ZWE MIGHT BE FINISHED 


00020200 
60020400 
00020300 
00020400 
00026700 
00020800 
OC0L0900 
00021000 
00021100 
00021200 
Q0021300 
00021400 
000213500 
00021400 
00021700 
Q0021800 
Q0021900 
00022000 
00022100 
COLL 200 
00022300 
00022400 
006022500 
00022400 
GO022700 
Q0022600 
00022990 
60023000 
00023100 
00025200 
00023700 
00022400 
00023500 
H0027600 
00023700 
00025800 
00022900 
06024000 


THE STRING BRIVEN THIRCOO24100 


00024200 
00024300 
06026400 
00024900 
00024400 
00024700 
O0024809 
00024900 
000223000 
00025100 
00025200 
06025300 
00023400 
00025500 
000234600 
00025700 


END} 90025200 

END; 00025900 

v4 00024000 
4 LET US ASSUME THAT WE HAVE A SPECIAL CHARACTER. 60026100 
% COPY CAN LOOK OUT FOR END OF LINE. 00026200 
rd 60026300 
T.TYPES=SPECIAL CHAR; 06026460 
COPY; O0036500 

END EXTRACT; 90026400 
SETNAME (TOKEN, SUBSTR(T STRING, 0, T SIZE) 3; 00026700 

¢IF CHECKS THEN 00024800 
DISPLAY ("END OF GET. TOKEN") ; DISPLAY (TOKEN); 00026900 
SEND 60627600 
END SCAN; 00027100 

he 00027200 
KAAAN AMAL hhh ahhininbintahhshhhnhhwhanhinnhhinietaatetatatehitelan tet lenin ekanr oe? 30g 
v4 00027400 
PROCEDURE LOOKUP; 00027500 

7 00027600 
% 1 SEARCH THROUGH THE VERE.TABLE FOR A MATCH WITH THE NEXT 00027700 
% TOKEN IN SOURCE. WHICH.VERE WILL CONTAIN A VALUE TO INDICATE 00027800 
4 THE VERG FOUND. IF A VERB IS NOT FOUND OR A VALID 00027900 
4 VERE IS ENTERED FROM A REMOTE DEVICE BUT IS RESTRICTED TO O0O28000 
4 USE FRON THE SPO THEN WHICH.VERB WILL HAVE THE VALUE @FFFF@, 00028100 
ee. O0d2BE60 
DECLARE I FIXED; 00028200 
WHICH. VERE: =GFFFFQ; wTO INDICATE INVALID - KAY BE CHARGED 06028400 
ALATER IF WE GET A VALID VERB 00628500 

T?=0; 060028400 
SCAN; ATOKEN SHOULD NOW BE A VERB 00028700 

DO LOOK FOREVER; OOG28B00 

IF I 2= Y.TAB.SIZE THEN UNDO LOOK; “DID NOT GET A MATCH 00028900 

IF VERG(TO=TORKEN THEN ~F OUND A MATCH 00029000 

BEGIN 00029100 

IF NOT SPO.MSG AND VERS.SPO.ORLY(T) 60029200 

THEN; “LEFT AS INVALID 00029300 

ELSE WHICH. VERB: =VERE.NO(I); 00029460 

UNDO LOOK; ZSTOP LOOKING IN EITHER CASE 00029500 

END CO029600 

ELSE 00029700 

1:+7} O0029800 

END LOOK; H0029900 

END LOOK.UP; 06930000 

4 00030100 
mre us a ey es TE EE EEE LL hhanhhibhbahbhhhhchbhhannhnhoooa0edt 
"/ 00030300 
PROCEDURE TELL(TALE; TALE.SIZt); G0050409 

' 00030500 
*  JWRITE THE MESSAGE POINTED AT BY TALE TO SPO OR 00030400 
% REMOTE DEVICE. IF CALLED WITH 1 PARAMETER THEN WRITE ALL OF TALE 90030700 
% QTHERWISE WRITE FIRST TALE.SIZE CHARACTERS. 00036800 
" 00030900 
DECLARE HOW MANY FIXED; ZWILL CONTAIN NO. OF CHARS TO WRITE 00021000 
BECLARE FF CH(1}; “WILL CONTAIN FORM FEED CHARACTER 60031100 
FFs="GOCR"; y/ = JUST LIKE THAT 60031200 
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HOW. MARYS=IF TYPECTALE.SIZE}=2 THEN TALE.SIZE ELSE SIZE(TALE}; 
IF TELL.SPO THEN 
DISPLAY (SUBSTR(TALE,O,HOW. MANY) }} 


vr Pe 


CwLack 


BEGIN 
aaa WE FIRST SEE IF THE CURRENT MSG HAS BIG ENOUGH 
mae TEXT AREA TD TAKE THE TEXT WE WISH TO SEND. 
mae IF NOT THROW TT AWAY AND GET MORE SPACE. 
IF NSG.HAXWLRTH < HOU.MANY + 1 THEN 
BEGIN 

RELEASE MESSAGE . SPACE (456 3 + 

GET MESSAGE. SPACE (MSG, HOW MANY +137 
END; 
MSG RETRY =G@FFQ@; 
MSG. TYPES=OUTPUT?. 
WRITE. TEAT(MSG,OQ;1,;FF); INSERT FF 
WRITE. TEXT (M5671 ,HOW. MANY, TALE); 
MSG.LNTHS =HOW. MANY+1;5 “4G0T 10 SAY EXPLICITLY 
WRITE HEADER (NSG;MSG.HDR); 


ALET NC HANDLE IT. 


QUEUE CHSG, NCQ} > aA TER ALL THAT SURGERY WE WRITE IT 


END; 
END TELL; 


PROCEDURE READY STATION(LSN) >; 
IF STA.PENDING(LSN) THEN; 
ELSE 
DO; 
STA.PENDING(LSH)f=1; 210 SAY WETVE BEEN HERE 
GET MESSAGE. SPACE (MSG,0)3 
READ HEADER (HSG;MSG.HDR); 
MSG. TYPES=MAKE.STA.RDY; 
MSG.STAS=LSN; 
WRITE HEADER (MSG, HSG.HDR}; 
QUEUE (MSG,NCQ); 
END; 
END READY STATION; 


AWAIT FOR GOOD RESULT 


: PRT AS hel he Bl Ae Me) he) a) hal he tae’ Me a) Ak a! ar) al! ha th ee fhe fh her! eat fh) ea ded! es ea he ht eth tel he) hl fel Ral Met te! ar Be Be a he tar daa ta dh dh fa far dar fa 
c Lib ihickhGen heh hihinh fniulainradue iA ve de by ral ae stetarutulad odadndasetutecuiudatsiniuies eineees 


Benvraltensulasesesfaculudarar 


PROCEDURE READY.LINE(LLN); 

IF LINE.PENBING THEN;  ZWAIT FOR GOOD RESULT 

ELSE 

DO; 
LINE. PENDING(LLN) 5=1; 
GET. MESSABE. SPACE (H5G, 0); 
READ HEATER (MSG 7 MSG.HDR DF 
MSG. TYPE =HAKE.LINE.RDY; 
MSG ..LIHEs=LUN? 
WRITE. HEADER (MSG, MS5 HDR); 
QUEUE (HEG, ACQ) ; 

END; 

END READY.LINE; 


“4T0 SAY WE°VE BEEN HERE ALREADY 


00021300 
00021400 
GO031500 
00051400 
00031700 
00031800 
00051900 
00032000 
00032100 
QO022200 
00032300 
60032400 
00032600 
00032700 
00032800 
00032900 
00033000 
00032100 
00033200 
00635200 
00073400 
00033500 
00033400 


Bf Bs Ms Oras Bs Br RPMs SAS as ms Rs BSUS Bs AP RP BLA; BPM; ATAL UPA OP Rs MPAs ms O;es Us AS Es By Ry; RPE; RIA; RPE; Ms BPRS BP OZR! RP UP AP As Bs ms RIMS A; AEBS AY RPO; A; EP BZwPAP Bsa? Pm “PT 
fore yi rose vd jadvncadutedn Z fateda rh (nae Z Aun ie dedacaiucudacereteen FA te a fadainietasatetartacate 7, fuinsused Nana tude wince fafernrasadetusuinseds < 4) a Q J 3 ‘4 Q ¢} 


00033800 
00032900 
00054000 
90034100 
00054200 
00034300 
00034400 
06034500 
00024400 
00034700 
03034800 
00054900 
00035000 
00025100 
06933200 
Q0035700 
00075400 
DOtTS500 
G0039600 
06035700 
OCOISBO0 
00055900 
00034000 
00034100 
00036200 
00036300 
00036400 
00034500 
000346400 
00036700 
00934800 


bad a fa! a! ad tae! Mo’ fw’ fh!’ ad fg! a a! er’ ta ea’ a! Be fhe har) fn’ ol fae! a) tg’ far dat’ fafa Dae) eal Tak ar oe eg Ter ha ha an er ea) ha dg Ar eat sr sh af tea dan ager the tg ae he hg a Jae dg i he ad “ATs 
hehnk te phy de Ar Lhd Z A faseteds pie Ae ae ap faducuind A - rf fated 4 tedudacucedncuducecudniniecacacn faduduiniecas f tacate: VL YLT Fucus 4 es racasete OG Wa 5900 


% 00037600 
PROCEDURE DO. INPUT. MSS} 60037100 

% 00037200 
% TAKE MSG FROM REMOTE DEVICE. RETURN OR ANALYSE COMMAND IF CC RECV. 00037300 
% | 00027400 
CONTINUE. STATION(MSG.STA}? § ZALLOWS STATION TO KEEP SENDING IN HSG00027590 

IF NOT HSG.CC.RECVD THEN 00037400 
BEGIN 00037700 
MSG. TYPES=OUTPUT? 00077800 
MSG.RETRY!=SFFQ} 00037900 
WRITE HEADER (MSG,MSG.HDRD} 00038000 
QUEUE (HS6;NCQ); 00032100 

END: 00030200 
ELSE 00078300 
BEGIN 00038400 
TELL. SPG:=FALSE; YASSUME REPLY TO STN - MAY BE CHANGED o0038500 
SPO.MSG!=FALSE} 60038600 
DO.DC. INPUT; 00078700 
END; 00078800 

END DO.INPUT.MSG} O0C32900 

7 00039000 
EE TTT OAT AOD 
: 00039200 
PROCEDURE START.LOGGING} 00039300 

y| 00039400 
4 OPEN PRINTER FILE AND SET LOGGING FLAG. 00039560 
% 00039400 
IF PRINT.EM THEN O00ZS700 
TELL("CANNOT SD: ALREADY LOGGING.")3 00079800 
ELSE BEGIN GOOZF7I00 
PRINT .EMS=TRUE} 00040000 
OPEN(P)} 60040100 
P.STNr=" LON": 00040200 
PLTYP=" TYPE": 00240300 
SUBSTR(P.BUF, 40) S="TEXT"} 00040400 
WRITE(P)} 00040500 
END} 00040600 

END START.LOGGING} 06040700 

- 00040800 
Cee ee ETL TET ETN TT TTT TTT TITAN 040900 
z 00041000 
PROCEDURE STOP.LOGGING; 60041100 

vA 00041200 
% CLOSE PRINT FILE AND RESET LOGGING FLAG. 00041300 
yA 00041400 
IF NOT PRINT.EM THEN 00041500 
TELL("CANNOT ED: NOT LOGGING.")} | 00041400 
ELSE BEGIN 00041700 
PRINT .EM!=FALSE? 00041800 
CLOSE(P); 60041900 
END} 00042000 

END STOP.LOGGING} 00042100 

4 , 00042200 


; ; 8 Be Bs Os Us Os AF AS BS Ef as Es EL apa Es PRs es as Os wf e, Japas we asasasaseapaseyasarases py > 
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A 00042400 
FUNCTION VALID.STA; 00042500 

i 00042400 
® IF THE VALUE OF THE CURRENT TOKEN IS BIGGER THAN THE 00042700 
% NUREER OF STATIONS WE HAVE THEN RETURN FALSE (AFTER 00042600 
4 DISPLAYING A WARNING) OTHERWISE RETURN TRUE. 00042900 
fe 00043000 
IF T.VALUE > MAX.STAS THER 00043199 
BEGIN 00043200 
TELL. SPO2=SPO.HSG; *#RETURN TQ SENDER 00045300 

TELL ("REQUEST DENIED: INVALID STATION NUMBER"); 00043400 

RETURN FIX(FALSE); 00043500 

END; 00043600 
ELSE RETURN FIXC TRUE); 00043700 

END VALID.STA; 00043800 

h 00043900 
Ielalaiainintasaelotatn hintatelalataretasate lalate laiotatutae nintalehtatebeatneinhshininieteteieisisnlahintah 2400044000 
h 00044100 
FUNCTION VALIDJLINE; 60044200 

i 00044300 
h I DO FOR LINES WHAT VALID.STA DOES FOR STATIONS. 00044460 
i 00044500 
IF T.VALUE > MAX.LINES THEN 00044400 
BEGIN 00044700 
TELL.SPO:=SPO.MSG} “RETURN TO SENDER 0004 4800 

TELL( "REQUEST DENIED: INVALID LINE NUMBER")} 00044900 

RETURN FIX(FALSE); 00045000 

END; 00045100 
ELSE RETURN FIX( TRUE); 00045200 

END VALID.LINE; 00045300 

he 00045400 
dd telat te fasnlatesocninte tase latnie tate talatalatetalate se lasatetaletateiaietnseliatatateietalatelalatats hntuinintaith 4000045500 
4 00043400 
FUNCTION VALID. SUBQ? 00645700 

h 00043800 
Z (CHECK FOR VALID SUBNET NUMBERS 00045900 
vA 00044000 
IF T.VALUE > MAX. SUBQS THEN 00044100 
BEGIN 00046200 
TELL. SPO*=SPO.MSG; 000446200 
TELL("REQUEST DENIED: INVALID SUBHET NUMBER"); 00046400 

RETURN FIX(FALSE}; 00046300 

END; 00044600 
ELSE RETURN FIX(TRUE); 00044700 

END VALID. SUEQ; 00046500 

A 00044900 
Mhhwadbnhhhbhrthnhmbhhbshhnshtcishmhnbbhibhhihnhhnhnhhhahhninhnbhahah God 7 0) 
4 00047100 
FROCEDURE DO.RESULT; 00047200 

4 00047300 
4 NON-ZERO RESULTS ARE HANDLED HERE 00047400 
h 00047500 
CASE MSG.RESULT; 00047400 
00047700 


4 


awe oft 


PE RE SE FE EL HE 


wes 


sf xe se 


DO; LINE NOT RDY 
TEXTS="RL"5 
CONVERT (O,SUBSTR(TEXT,2,1),MS6.LINE)} 
DISPLAY (SUBSTR( TEXT, 0,5) >} 
END; 
DO; “STA NOT RDY 
TEXT 2="RS"j 
CONVERT (0,SUBSTR(TEXT,2,1),MSG.STA)} 
DISPLAY (SUBSTR(TEXT;075) 7 
END; 
DO; = ACNTL OR WRU 
BO. INPUT MSO; 
END; 


PRITGG 
END CASE; 
END DO.RESULT; 


a oy) Reus Rs Rpases dy ay By as sas Nses ay asEsasns Rs ay Bs Rs POPs Bs erases es ey as as ae Es e787 a7 
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PROCEDURE DO.DC. INPUT; 


THIS PROCEDURE. HANDLES COMMANDS FROM THE SPO AND FROM RENOTE 
DEVICES. LOOK.UP GETS THE VERB, SCAN GETS THE PARAHETERS 
AND TELL SENDS THE REPLY (IF ANY). 


FIRST GET THE TEXT AND SET UP INIT. CONDITIONS FOR SCAN. 


READ. TEXT (MSG, 0,255, SOURCE) j 

M.SIZE t= IF MSG.LNTH <= 255 THEN MSG.LNTH ELSE 255; 

PTRE=03 

ALL. DONE?=FALSE? 

IF NOT SPO.MSG THEN SCAN; © %SKIP OVER CONTROL CHAR 
ZASSUMES THAT NC SEMDS IT TO US. 


GET THE VERB 
LOOK UP} 
HANDLE EACH VERB AS NECESSARY 


CASE WHICH. VERB; 
QUIT:=1; 4 END 
BEGIN & RS 
SCAN; 
IF NUMSER.TOREN AND VALID.STA THEN 


READY .STATION(T. VALUE} > 

END} 

BEGIN x RL 
SCAN; 
IF NUMBER. TOKEN AND VALIB.LINE THEN 
READY. LINE(T VALUE) 3 | 

END; 

BEGIN % 10 OR SS 
SCAN; 


00047800 
00047908 
00048000 
0°648100 
00048200 
60042300 
00046400 
69048300 
00048400 


00048700 _ 


00048200 
06048900 
00049000 
60047100 
000469200 
00047300 
00049400 


Z00049500 


00049600 
00049700 
00049800 
00049900 
90050000 
00050100 
00050200 
00050300 
00050400 
00050500 
00050400 
00050700 
00050800 
00050900 
00051000 
00051100 
60051200 
00051300 
06051400 
00051500 
00051500 
00051700 
00051800 
00051900 
00052000 
00052100 
00052200 
00052300 
00052400 
00052500 
00052600 
00052700 
00052800 
00052900 
00053000 
00053100 
00053200 
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IF TOKEN = "SPO" THEN TELL. SPO:=TRUE; 00053300 

ELSE 00032400 

BEGIN 00055500 

TELL. SPO?=FALSE; 00053400 

IF NUREER. TOKEN THEN 00052700 

BEGIN 00053800 

TF VALID.STA THEN 00053900 

MSG. STAS=T VALUE; 60034000 

ELSE UNDO(%); 60054100 

END; 00034200 

ELSE 00034500 

BEGIN 00034400 

TELL. SPOF=SPO.NSG; “RETURN TO SENDER 00094900 

TELL( "REQUEST DENIED: NEEDS VALID BEST."); 00034400 

UNDO(#); 00034700 

END; 00694800 

END; 00034900 

TELL (SUBSTR (SOURCE, PTR), (N.SIZE-PTR) 3; 06033000 

END; 00035100 

START LOGGING; z SD 06055200 

STOP ..LOGGING; % ED 06055200 

BEGIN x QM 00033400 
SCAN; 00025500 

IF NUMBER. TOKEN AND VALID.SUBQ THEN 00053400 

BEGIN 00033700 

MSG. TYPES=INPUT; 00035800 

MSG LNTHI=M.STZE-PTR; 00055900 

WRITE. TEXT (HSG,0,4SG.LNTH, SUBSTR (SOURCE, PTR} >; 00056000 

WRITE HEADER (NSG, M56. HDR); 00036100 

QUEUE (MSG, (SUBQ+T VALUE) ); 00036200 

END; 00034309 

ELSE TELL("REQUEST DENIED: NEEDS VALID SUBQ">; 00034400 

END? 00034500 
BEGIN rare 00055400 
ZIP(2,SUBSTR (SOURCE, PTR, (HSIZE-PTR)}); 00056700 
TELL("MESSAGE ZIPPED."); 00036600 

END; 00056900 
BEGIN % WRU OR WM 00037000 
TELL (VERSION); 00037100 

END; 00057200 
TELL("CANNOT RECOGNISE COMMAND’); ALL OTHER CASES 00037300 

END CASE; 00057400 

END DO.RC. INPUT; 00057500 

7 00037400 
Cee eo ee ee ee EUS OSES IIA NOOS7T 7100 
h 00057800 
PROCEDURE DO.ATTACH. SUEN; 00057700 

yA 00035000 
% 1 MAKE MCS NON-PARTICIPATING FOR EACH STATION IN 00058100 
% THE SUBNET THAT THE TASK WARTS TO RECEIVE FRON. 00056200 
z 00056300 
DECLARE 60038400 

1 SUB.DESE CH(14), 009056500 

¢ SUB.NAME CH(12), 00038600 

@ SUB.SIZE FIXED, 00038700 


I FIXED? QOOSEB00 
SUBNET. DESCRIPTION( MSG .SUBQ,SUB.BDEST)+ COOSESA0 
SUB. SIZES+SUB SIZE} OO059000 
DECLARE OOO59100 

1 SUB.STAS CH(SUB.SIZE}, XSTATIONS ON THIS SUBNET 00059200 

2 SUB.STN FIXED; 00059300 

SUBNET. STATIONS (HSG.SUBQ,SUB.STAS); 00059400 

IF TSK.STN( (MSG. TSK-1)#223/=0 THEN XALREADY ATTACHED TO A Q OOG59500 
BEGIN O0059400 
DISPLAY ("CANNOT ATTACH: TASK ALREADY HAS SUBQ"); 60059700 
DISALLOW. INPUT (HSS. SUBQ,MSG.TSK) 3 QOO59800 

END} COOS9F00 
ELSE 00060000 
BEGIN 60040100 
TSK. STNCCHSG.TSK-L) eee) s=SUB.SIZE; «©=-XND. OF STNSx2 OU060200 

[:=0; GO040309 

DO ROUTER FOREVER? 00040400 

IF I >= SUB.SIZE THEN UNDO ROUTER; HO0E0500 

IF I >= 20 THEN O00S0400 

BEGIN 00040790 

DISPLAY ("CANNOT ROUTE MORE THAN 10 STNS FER Q"); 05060800 

UNEO ROUTER; 90060900 

END} 00941000 

ROUTE. INPUT (SUB. STH(T), (SUDQ+NSG.SUBQ) >; 06061100 

TSK.STN( (MSG. TSK-1) #224142) S=SUBSTN(I}; 00061200 

[2423 C00G61700 

END ROUTER; 00061400 

ALLOW. INPUT (MSS ..SUBQ, MSG. TSK)? 00061500 

END; 000614660 

END DO.ATTACH. SUBN; C00617006 

FA 80061800 
hikhhhihthhhhekchhhahhkhhhihbhbhhbahhshnkhohaknhhhhhhahoukihhianabonihnoovoLy oo 
4 00042000 
PROCEDURE BO. TASK. DETACH; 000462100 

v4 00042200 
~ I MAKE NCS PARTICIPATE FOR THOSE STATIONS IN SUBQ OF 00042300 
% THE TASK WHICH HAS JUST GONE TO EOd. 00062400 
Z GO042500 
DECLARE (1, J)FIXED; 00062600 
Jt=TSK.STNC (MSG. TSK-1) x22); 600462700 
1:=0} 00622800 

DO FOREVER; 00062900 

IF Iz=J OR I>=20 THEN UNDO? CO0463000 

ROUTE. INPUT (TSK STN( (HS6. TSK-1)4224+142) MESO} | GO043100 

I:+23 00063200 

END} | £9943300 
TSK. STNCCHSG. TSK-1) #22} 2=0; 00043400 

END DO. TASK. DETACH; 00063500 

4 00063400 
Meee eee eee ee ee GEES Rei iete ts tatota wb OO06 5700 
rd 00063800 
PROCEDURE DO.ATTACH. STA; 00062900 
ROUTE OUTPUT (MS6.STA, NCQ) } 05044000 
ALLOW. OUTPUT (MSG.STA,MSG. TSK) } 00064100 

END DO.ATTACH. STA? 00064200 
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A 00064300 
CELE LEE EILEEN TTI ETAL OOOEL GOO 
i 00044500 
¢1F DEBUGH THEN 00054400 
PROCEDURE LOGGIT} 00064700 

i DEBUG CODE GOES HERE 00044800 © 
P.BUFs=""s 0044900 
IF NOT PRINT.EM THEN RETURN; %NO LOGGING 00065000 
CONVERT (O;P.STN,HSG.STA}} 00065100 
CONVERT(Q,P.TYP,;MSG. TYPE)? 00065200 
READ. TEXT (MSG,0,120,P.TXT)3 00065200 
WRITE(P)} 00065400 
END LOGGIT; 00065500 
SEND 00045400 
yi 00065700 
Fe ee ee GGT L00 65800 
% 000465900 
PROREDURE INITIALIZE} 00066000 
% 00066100 
% 00066200 
% WAKE MCS PARTICIPATING. 00066300 
% READY ALL THE LINES. 00066400 
* SET THE NCS Q LIMIT T0 5. 60046500 
% PUT SPACES IN THE PRINT BUFFER (FOR LOGGING); 00064400 
% 00064700 
DISPLAY (VERSION) } 00066800 
P.BUF r=" "5 00066900 
LSN?=0} 00067000 
DO FOREVER} 90067100 
ROUTE. INPUT(LSN,MCSQ) 3 000467200 
ROUTE. QUTPUT(LSN,MCSQ) } 00067300 
IF CLSN?+i] > MAX.STAS THEN UNDO} 00067400 
END} 00067500 
SET. QUEUE.LIMIT((MCSQ),533 00067400 
LLN:=0} 00067700 
DO FOREVER} 00067800 
LINE. PENDING(LLN) ?=13 00067810 
GET MESSAGE. SPACE (MSG,0)} 00067900 
READ HEADER (NSG,NSG.HDR) } 00048000 
MSG, TYPE? =HAKE.LINE.RDY} 00048100 
HSG.LINES=LLN} 00068200 
WRITE. HEADER (MSG, MSG.HDR)} 00068300 
QUEUE (MSG NCQ); 00068400 
IF CLLMS+1]2NAX.LINES THEN UNDO; 00068500 
END: 600468600 
END INITIALIZE; 00068700 
$PAGE 00068710 
sruyeruuyeyusse rye reer eee eee EL ee LEE LENCE LALLA ALALRARR ABM LEGAROOOEEEOO 
% 700068900 
* SSS TTTTT A RRR TITTT HH EEEE RRR EEEE %00049000 
% = § T AA RR T H HE R RE 200069100 
% §S T AAA RRR T HHHH EEE RRR EEE 200069200 
4 S T A A RR T H HE RR E %00069300 
%  §55 T A ARR TT H H EEEE R R EEEE O 200069400 
% | | 200049500 


vas 
716 
V1.7 
741.8 
71.9 


720 


BPE Ry AP BPOsEsusasesBsUrasnpas esas Rs Rear Ms asm; Bsn; Eras aya; usayesasas as ase; RsararwseBsasesesasmsazEsS/ asus ay My apap ey as; esey es Ose; ayes ese; a; asap e 
re ture vA 5 Z ve cA tudatusatadesacsi's 4 tadn rd iudeds fA ie yA fafeie rd 4 u fucatadetareiaiare se fais u Susadalutadace A te 78 turudece yd AbArthiethe 7 fe vA 
INITIALIZE? 


DO MAIN.LOOP FOREVER} 
FETCH. MESSAGE (MSG); 
READ HEADER (MSG, MSG .HDR} 5 


VIF DEBUGN THEN 


SEND 


LOGGIT; 


IF MSG.RESULT /= 0 THEN DO.RESULT} 
ELSE 
CASE MSG.TYPE; 


J h 0 
DO. INPUT MSG} a1 
; ie 
’ ye 
; A 4 
; 49 
LO; K& 


LSNS=HSG.STA} 

STA. PENDING (LSN) =0; 

TEXTS="SR" 

CONVERT (0,SUBSTR(TEXT,2,1),LSN)} 
DISPLAY (SUBSTR( TEXT; 0,5))} 


END; 
; h7 
DO; 48 
LLYS=N56,.LINE; 
LINE. PENDING(LLE) 8=03 
TEXT="LR"3 
CONVERT (O,SUBSTR(TEXT,2,1),LLN)$ 
DISPLAY (SUBSTR(TEXT,0,5)); 
END} 
, 49 
i & 10 
j 4 il 
} 4 12 
; % 13 
; % 14 
DO; 
TELL. SPO: =TRUE; AASSUME REPLY TO SPO - MAY BE CHANGED 
SPO.MSG:=TRUE; | 
DO.DC INPUT; 4 18 
END; 
} K 164 
; 4 17 
DO.ATTACH. SUBN; 4 18 
DD.ATTACH. STA; 4 19 
; % 20 
j “% 21 
} & 22 
r A 2s 
EB A 24 
DO. TASK. DETACH} % 25 
END CASE} 


RELEASE MESSAGE. SPACE (MSG); 


00069400 
00069700 
00069800 
00069900 


— 00070000 


00070100 
00070200 
00070500 
00070400 
00070300 
600704600 
00076700 
C007 C000 
00070900 
60971000 
00071100 


00071200 


06971300 
00071400 
00071500 
09071400 
00071700 
00071800 
00077900 
00072000 


00072100 


020672200 
00072309 


00072400 


00072500 
000724600 
00072700 
66072860 
00072900 
COO7ZOOO 
00073100 
60073200 
00073300 
60073400 
00073500 
00073400 
00073700 
00073800 
00073900 
00074000 
00074100 
00074200 
60074300 
00074400 
00074509 
00074400 
00074700 
00074800 
00074900 
00075000 
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770 IF QUIT THEN UNDO? “SET BY OPERATOR 00075100 
Al END MAIN.LOOP? 00075200 
73 DISPLAY("MCS HALTED"); Q0073300 
773 STOP; 00075400 
774 END OLDWEITRDHAROLD; 00075500 
7?9 FINT} 000754600 
7? & $PAGE 00075410 
777 FILE. DEFAULT(P) S=TYPE2; 00075700 
778 ND BUFFERS(P}:=43 00075800 
779 NO.LABEL(P)s=1; O0075E00 
7E0 FILL TEPEsSEG With 006745900 
764 9% 1 9H OH OH OK OH OX OH DKON, 00074100 
foe Oa, SR, FH, OK, OX, OD, OX ON, 98, OK, G0076200 
ae 9¥ 9%, 9%, 94, 9%, 04,9%, 9%, 0%, 0%, 00074300 

764 9% 9%, 00076490 
7BS 6%, 060076500 
706 OH, 379%, 9%, 0%, 0%, 9%, 5%, 0%, 9%, 00076600 
707 O87 5%, Ok Oe Ok, 000746700 
788 1¥,1%,14,1¥,18,14,1%,14,14,1%, 00074800 
789 D¥ 75% 75H 79%, 54794; O¥,7 06076900 
7?) 0#,04,0%,0%,0%,0%,0¥,0%,0%,0%, 00677000 
Fo O04, 0¥,0%,0%,0%,0%;05,04,04,0%, 0077100 
792 0% 50%, 04,0%,0%,0%, 00077200 
793 DH OF SH, Ok ak Oey 00077200 
794 04,0, 0%,0%,0%,0%,0%,0%,0%,0%, 00077400 
FOS Ot 70% 70%, 0% ,0%,0%,0%,0%,0%,0%, 060077500 
72 04,04, 0%,0%,0%,0%, 00077400 
ey O% 75%, OH, 0%, O47 00077700 
708 00077200 
799 FILL VERB.SEG WITH 00077900 
900 "END GQOCOFFR", f STOP MCS 00078000 
SOL "RS SO001FFR", x REARY STATION 00078100 
GO? "RL @CO02FFE", h READY LINE 00075200 
803 "TO 000308", Z SEND A MESSAGE 00078300 
B04 "SS @000300@", Z SAME AS TO 00078400 
DOS "SD @0004008", % START BEGUG PRINT O0078500 
Bod "ED 80005008", x END DEBUG PRINT 00076400 
907 "QMX 80006008", A MUEUE MESSAGE 00078700 
BOE "ZIP 80007008", yA ZIF MESSAGE 10 MEP OCO7EBO0 
B09 "WRU @O00800R", A WHO ARE YOU 00078909 
91.0 "WM @000B00G"; A WHAT HCS - SANE AS WRU 00079000 

SAMPLE DATA COMM TASKS MPLII 

Three sample data comm tasks are included in this The symbolic queue name is accepted from the 

appendix. These tasks are functionally equivalent, SPO. 

each being coded in a different language: COBOL, 

MPLII, and RPG. Because of the nature of RPG, it (COBOL 


is not practical to describe the tasks in terms of line 


numbers; much of the task is transparent to the user. The symbolic queue name is taken from the initiat- 


— ing message if present; otherwise, it is accepted from 
Functional Description the SPO. The DC task then: 
1. Receives a message. 
2. Logs the contents of the input CD. 
3. Prints the message text. 


Upon initiation, the DC task opens a printer file 
(used for logging messages) and obtains the name of 
the subnet queue from which it obtains messages. 
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4. Echoes ‘‘good’’ messages to the originating 
Station. 

5. Logs the output CD if a message was 
echoed. 

6. Reports any errors on the SPO. 

7. Returns to step 1. 


Detailed Description 
Program Logic 


The logic of the program proceeds as follows: (see 
MPLII 29400 - 30200, COBOL 23800 - 28200.) 


1. Open the printer file. 

2. Find the symbolic queue name to be used 
for DC input. 

3. Turn messages around until end-of-job. 

4. Close the printer file. 

5. Stop. 


GET.QUEVE.NAME 


(See MPLII 10500 - 11200, COBOL 10900 - 
11600.) 


This routine results in the symbolic queue name to 
be used to be placed in SYMBOLIC.QUEUE. In the 
COBOL version, there is code to check if the 
INITIAL CD has been filled form the EX or ZIP of 
the task. If the SYMBOLIC-QUEUE field is blank, 
then the task waits on an ACCEPT. In the MPLII 
version, there are no provisions for handling an initi- 
ating message. (There is, of source, no reason why 
this could not be done.) 


Turnaround 


(See MPLII 27600 - 28800, COBOL 26200 - 
27100.) 


The logic proceeds as follows: 


1. Take the next message from the (input) 
queue. 

2. If the message is good, send it to the ori- 
ginating station. 

3. Print the contents of the input CD and the 
message received. 

4. If the input message is good (implying that 
it has been sent back), print the contents of 
the output CD. 

5. Report any errors found in this transaction. 


NOTE 
If steps 2 and 3 are interchanged, the 
program takes longer to turn a message 
around. Coded as it is, the program 
causes the message to be sent to the re- 
mote device in parallel with the printing 


of the input CD and message. The rea- 
son for this is that the printing 
operation requires many communicates, 
each causing the program to be short- 
waited if the printer buffers are full. 
The SEND, however, is only a single © 
communicate and the program regains 
control before the physical data comm 
transfer is complete (allowing the print 
communicates to be issued). 


Program readability has been improved 
by the use of DEFINES in MPLII (seq. 
8400 - 1010) and condition names in 
COBOL (seq. 8800 - 9100 and 9800 - 
10300). However, a large amount of S- 
code is generated for DC constructs in 
MPLII and the result is that the DE- 
FINES used in this example cause the 
program to be much larger than if 
FUNCTION(s) and PROCEDURKE(s) 
had been used to encode DC con- 
Structs. 


GET.MESSAGE 
(See MPLII 11300-12600, COBOL 11700-13300.) 


The logic proceeds as follows: 


1. Space fill the area used to contain the next 
message. 

2. Set-up the required fields in the input CD. 
3. Take the next message from the subnet 
queue. 

4. Set the EOJ flag to true if the first three 
characters of the message are END. 


XMIT 


(See MPLII 17800 - 19000, COBOL 16000 - 
17000). 


The logic proceeds as follows: 


1. Set-up the output CD. 

2. Send the message. 

3. Set a flag (OUTPUT.STATUS.VALID) to 
true. 


NOTE 

This flag is reset in 
DISP.ERRORS.OUT after displaying 
the output status. The flag is used to 
prevent the same output status being 
analyzed twice (as would otherwise oc- 
cur after an error which would have 
prevented the echoing of a message). 
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LOG.IN.CD 


(See MPLII 13600 - 17700, COBOL 14100 - 
16800.) 


The logic proceeds as follows: 
1. Space fill the print buffer. 


2. Place the contents of the input CD into the 
print buffer. 


3. Write the print buffer. 


4. If the message is good, print the message 
text. 


NOTE 
In the MPLII program, the sub-queue 
fields in the print buffer are set to 
spaces and printed in order to preserve 
the same print format as the COBOL 


LOG.OUT.CD 


(See MPLII 19100 - 20300, COBOL 18000 - 
19000.) 


This procedure copies the contents of the output 
CD to the print buffer and then writes this buffer. 


ANALYZE.ERRORS (See MPLII 26800 - 
27500, COBOL 25400 - 21600.) 


_._This procedure displays errors messages on the 
SPO and waits for an operator reply. If no errors 
were encountered during this transaction, this proce- 
dure is a no-op. 


The actual work is done by DISP.ERRORS.IN 
(MPLII 20400-22700, COBOL 19100-21600) and DIS- 
P.ERRORS.OUT (MPLII 22800-26700, COBOL 
21700-25300). If the operator replies with an END in 
the next turnaround cycle, the program goes to end 


program. of job. 
SAMPLE COBOL PROGRAM 
1 OO00100$ LINE-CODE OFPTCODE 
CMUUIDURERILCITCCTTICCISLOCCOSECCICCOrer etre eere recor re eere teres ee Teer ee fe. 
3 G00110% # 
% GOO115% PROPRIETARY PROGRAM HATERIAL % 
S 000120 % 
& 006125 THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION » 
7 600136 AND IS NOT TO BE REPRODUCED, USED OR DISCLOSED EXCEPT IN » 
& O0C13Ss ACCORDANCE WITH PROGRAM LICENCE OR UPON WRITTEN AUTHORIZATION » 
9 O600140% OF THE PATENT DIVISION OF BURRQUGHS CORPORATION, DETROIT, + 
10 060145" MICHIGAN 48232, ¥ 
Li 600130 % 
de 001354 COPYRIGHT (C) 1979 BURROUGHS CORPORATION ¥ 
% 


3 000160 


Lh OGRE GH RK MAREK KE RS ER RAKE RA RHA RHA RES SRS AKH AAA KAKA AAARHA ATA RE RAF ERAKH 


15 00200 IDENTIFICATION DIVISION. 
16 OCO300 ENVIRONMENT DIVISION, 

7 000400 INPUT-DUTPUT SECTION, 
18 000500 FILE-CONTROL. 

19 = 000600 


eer ernemter tase AE eionsernainaneasttccaten sete 


» 060700 DATA DIVISION. 


2} GOOBGO FILE SECTION, 

ao 000960 FD LOG. 

2% 001000 O1 PRINT-LINE PIC X(120). 

att 

001200 OL LP-IN, 
% OG1300 | 02 LP-SYMBOLIC-QUEUE PIC X(i2). | 
27 001400 02 FILLER PIC X, | 
=X} 901500 02 LP-SUB-Q-1 PIC X(12}. 

=) 001400 02 FILLER PIC X. 
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001100#——THE ABOVE LINE IS ONLY FOR SPACE FILLING. -___- 


SELECT LOG ASSIGN TD PRINTER. 


Attn en PEIRCE URN RO NIE RO 


; 
A 
: 
i 


i 
i 


a 
vr" 
wt 


AHS SSQa 


wr 


001700 Oc LP-SUe-Q-e.PIC X(ie). 
001000 Oe FILEER PIC Xe 


001900 | 02 LP-SUB-Q-3 PIC X(12). | 
002000 | 02 FILLER PIC X, | 
002100 | -02 LP-HESSAGE-DATE PIC 99/99/99, | 
| 
| 
} 
| 


sysname NSA aA NRTI A EON TL 


onemsocoresoni 


ASTRA PAN LITE NESE SANSONE LSAT MENSA OSTEO sapoemoenenes 


002200 02 FILLER PIC X. 
O02300 | 02 LP-NESSAGE-TINE PIC $9/99799/99, 
002400 02 FILLER PIC X. | 
002500 QO? LP-SYMBOLIC-SOURCE PIC X(12). | 
602400 02 FILLER PIC X, | 
002700 02 LP-TEXT-LENGTH-IN PIC ZZZZ9. 
002800 | 02 FILLER PIC X. | 
002900 | 02 LP-END-KEY PIC 9. | 
003000 | -02 FILLER PIC X | 
003100 | 02 LP-STATUS-KEY-IN PIC 99, 
003200 02 FILLER PIC X. 

003300 = OF LP-MESSAGE-COUNT PIC 2222779. 


Ne IRIE SRA SN RONMENT REP IRR “sean y mee saeegargmeene tn 


003400% ——THE ABOVE RECORD ALLOWS LOGGING THE INPUT C).-——————-—--------— 


002500 O1 BUFFER-LINE PIC xX(80). 


0036G04—— THIS LINE IS TO DISPLAY RECEIVED TEXT ————~———..____ eens 
003700 OL LP-OUT. 

003800 [02 LP~DEST-COUNT PIC Z ~~] 

003700 02 FILLER PIC X, 

004060 [02 LP-TEXT-LENGTH-OUT PIC ZZZ29. 

004100 hes FILLER PIC X. 

004200  |02 LP-STATIS-KEY-OUT PIC 99. | 

004300 (02 FILLER PIC X. 

004400 c LP-ERROR-KEY-OUT PIC 9. 

004500 02 FILLER PIC X. 


004409 02 LP-SYMGCLIC-DESTINATION PIC X(i2), 


aenssmgererte 


004700% — THE ABOVE RECORD ALLOWS LOGGING THE OUTPUT ¢p-——————_—_—— 
004800 WORKING-STORAGE SECTION, 

064900 01 DC-BUFFER. __ 

005000 02 BC-SLOT PIC X(80) DCCURS 24 TINES. aa 

005100%-— DC SUFFER FORMATTED AS TD SCRE : — mannan 
005200 02 DC-BUF-REDEF REDEFINES DC-SLOT. | 

005300 | 03 DC-MESSAGE PIC XXX, . 

005400%-——--- TD ALLOW ACCESS TO THE "END" MESSAGE.——————------—--— 

005500 on BC-REST PIC ¥(i917).. | 

005400 O01 COMM-ERROR. 


[om emrneersrennsrimneor urea 


005700 «02 TYPE-FIELD PIC X(15).. 

005800 02 ERROR-FIELD PIC 99, | 
005900 «= |02 CONNENT-FIELD PIC X(45). 
004000 77 PRINT-INES PIC 99 VALUE 0. 

O05100 77 SPARE-CHARACTERS PIC 99 VALUE 0. 
004200 77 LINE-POINTER PIC 99 VALUE 0. 
006300 77 END-FLAG PIC X VALUE "R", 

006400 8B EDU VALUE "S". 

006500 77 OUT-STATUS-VALID PIC X VALINE "F", 
006600 88 QUTPUT-STATUS-VALID VALUE “T". 
006700 COMMUNICATION SECTION. 

004800 CD INPUT-CD FOR INITIAL INPUT. 


004900 % — sae pc chal dan a cl a emit caina a Sn caveaeeniemiaicc tants 


007000 ‘NOTE “ENITIAL" CLAUSE. 
007100% IF AN INITIATING MESSAGE 15 INCLUDED IN THE "EX" OR "ZIP" 
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S TASK, THEN THIS CD AREA WILL BE OVERWRITTEN WITH THE 
007 300% FIRST 87 CHARACTERS OF THE TEXT. THE PROGRAM DOES ¥NOT* SPACE 
007400 FILL THE SUB-QUEUE FIELDS. MCP WILL RETURN STATUS 20 (ACCESS 
0072300% DENIED) IF SUB-QUEUE FIELDS ARE NON-SPACE. 


OG7200% QF THIS 7 
iS 


007700 O1 IN-CD. 


oh la LAR RIC RR CS NaN MANGE EE NEO A A ASN READ HE 


Accacwrine ste iS Be 


007800 02 SYMBOLIC-QUEUE PIC X(12). % APPROPRIATE NDL “FILE” NANE, >>> 
007900 02 SUB-O-1 PIC X(12) VALUE " 
0¢2000 = G2 SUB-Q-2 PIC X(12) VALUE " i 
008100 02 SUB-Q-3 PIC X(12) VALUE " i‘ 


C8200 C2 MESSAGE-DATE PIC 9(4). 
008300 02 HESSAGE-TIME PIC 9(8). 

008400 G2 SYMBOLIC-SOURCE PIC X(12), 

008500 G2 TEXT-LENGTH-IN PIC 9(4). 

COBL09 Q2 END-KEY PIC 9, 

000700 02 STATUS-KEY-IN PIC 99, 
009800 [BE GOND-INPUT-STATUS VALUE 00, % 
COB9O0 BB UNKNOWN-INPUT VALUE 20, | 
COF000 8B MCS-MISSING VALUE 91. f. 
CO9L00 IBS KNOWN-INPUT-ERRORS VALUES 20 91, Sf 
009200 O2 MESSAGE-COUNT PIC 9(6). 

609300 CD QUTPUT-CD FOR OUTPUT. 

009400 O1 OUT-CD. 

009500 G2 DESTINATION-COUNT PIC 9(4) VALUE 1. 
0OFZ00 02 TEXT-LENGTH-OUT PIC 9(4). 

009700 O2 STATUS-KEY-OUT PIC 99.00 2 
009800| 82 GOOD-OUTPUT-STATUS VALUE 00, 

oes UNKNOWN-DUTPUT VALUE 20, 

G10000| SE CAD-DESTINATION-COUNT VALUE 30. 
010100 88 BAD-TEXT-LENGTH VALUE 50. 

010200 8B DCSS-MISSING VALUE 91. rs 
010200! 88 KNOWN-QUTPUT-ERRORS VALUES 20 20 50 91. / 
010400 02 ERROR-KEY PIC 9. 

010500 Q2 SYNBOLIC-DESTINATION PIC X(12). 

010400 PROCEDURE DIVISION, 

010700 MAIN. 


Q 1 ag c ex6) G a} T i] S T ray RT- OF = p R OG RAM 3 vi M PL a L J WE p R OG8 A M { Ay fi U T= ee ee ee 


Q10F00 sane camel isin 


0111008 GETS SUBNETQUEVE Ha HE | FROM OPERA TOR (IF NOT IN INIT MESSAGE). | 
011200 THIS NAME MUST BE DEFINED IN THE NEL PROGRAM FILE. 

420 Se Serre ere tad iste ce a ie tae eae es 
011600 IF SYMBOLIC-QUEUE IS EQUAL TO SPACES % = NO INIT MESSAGE=— ~~ 
011500 THEN DISPLAY "TYPE INPUT-QUEUE NAME..." 

0114600 ACCEPT SYHEOLIC-QUEUE. 

011700 GET-MESSAGE. 

O10 ee bees: 

O11900% SPACE FILL DATA-COMM BUFFER, 1 TAKE NEXT MESSAGE FROM SUBNET 4, 


sete SET EOJ FLAG IF END RECEIVED. 


er MOVE SPACES To 
012300 SYMBOLIC-SOURCE 
012400 END-KEY 

912500 STATUS-KEY-IN, 


012400 MOVE 0 TO 


rocoto: 


012700 
012806 
012900 
013000 
013100 
013260 
O15200 


MESSAGE-DATE 
MESSAGE-TIHE 
TEXT-LENGTH-IN 
MCSSASE-COUNT, 
MOVE SPACES TO DC-BUFFER. 
RECEIVE INPUT-CD MESSAGE INTO DC-BUFFER. 
IF DC-HESSAGE = "END" MOVE "S" TO END-FLAG. 


013400 as Giaiee 


015400 WRITE INFORMATION FROM LAST MESSAGE RECEIVED TO PRINTER. 

§13700x——_______ eee eRe Se eee eT Se Pee . ee Shicsaliciaseten hale lath Rena aie sci t ao Inet sions 
O12000 HOVE SPACES: 19 PRINT- -LINE.. 

013900 WRITE BUFFER-LINE FROM DC-SLOT(LINE-POINTER) AFTER i. 

914000 ADD 1 TO LINE-POINTER, 


014100 LOG-IN-CD. 


0142004— 


014306% WRITE CONTENTS. OF - CURRENR INPUT cD a PRINTER. 

0144004—— : _ Spiidemletehee pcan 

014900 MOVE | SPACES 0 PRINT- -LINE. 

014600 MOVE SYMBOLIC-QUEUE TO LP-SYMBOLIC-QUEUE. 

014700 MOVE SUB-Q-1 TO LP-SUS8-Q-1, 

014800 MOVE SUB-Q-2 TO LP-SUB-Q-2, 

014900 MOVE SUB-O0-3 TO LP-SUB-Q-3, 

915000 MOVE MESSAGE-BATE TO LP-HESSADE-DATE. 

015100 MOVE MESSAGE-TIME TO LP-MESSAGE-TIME. 

O15200 MOVE SYMBOLIC-SOURCE TO LP-SYMBOLIC-SOURCE. 

015300 MOVE TEXT-LENGTH-IN TO LP-TEXT-LENGTH-IN. 

015400 MOVE END-KEY TO LP-END-KEY. 

$13500 MOVE STATUS-KEY-IN TO LP-STATUS-KEY-IN, | Tex x +: -lengirt-» 
015400 ACCE®T INPUT-CD MESSAGE COUNT. ee 

013700 MOVE HESSAGE-COUNT TO LP-MESSAGE-COUNT. . 

Q195800 WRITE LP-IN AFTER 2, ry Ae 
Q15900 IF MOT GOOD-INPUT-STATUS | Roe k | 
014000 GO TO LOG-IN-CD-END. = © IT I; $5 pes Paceatees 
016100 DIVIDE 80 INTO TEXT-LENGTH-IN GIVING PRINT-LINES SSM T OS 
014200 REMAINDER SPARE-CHARACTERS., 

014300 MOVE 1 TO LINE-POINTER, 

14400 PERFORM WRITE-LINES UNTIL LINE-POINTER > PRINT-LINES. 

014500 IF SPARE-CHARACTERS IS NOT = 0 

014400 PERFORM WRITE-LINES, 

0146700 LOG-IN-CD-END. 

014800 EXIT. 

014700 XNIT. 

017100 SEND CURRENT MESSAGE BACK 10 ‘ORIGINATOR. | 
017200% MARK OUTPUT STATUS AS MOT HAVING BEEN ANALYSED. | 
017306x——- het Bo cd apicl acetate Ga edie Sender Maal rahe eee ae 
017460 MOVE TEYT- LENGTH 1H 10 TEXT- -LENGTH- “OUT. 

O17300 MOVE SYMBOLIC-SOURCE TO SYMBOLIC-DESTINATION. 

017400 NOVE SPACES TQ STATUS-KEY-OUT 

017700 ERROR-KEY. 

017800 SEND QOUTPUT-CD FROM DC-BUFFER WITH EMI, 

Q17900 MOVE "T" TO OUT-STATUS-VALTD. 


018000 LOG-OUT-Ci. 


00 Bs a te te at ce nc ea a at 


C-25 


C-26 
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O1G200% 


018300x——_—~— 


15400 
o18500 
018600 

019760 
018800 
G18700 
019600 


019100 DISP- 
017200" 


O19500% 
0194004 — 
019300 
O1940 

019700 
019860 

019900 
020000 
020100 
020200 
N20500 
020400 
020500 
020400 
020700 
O020200 
020900 
C21060 
021106 
021200 
021300 
021400 


21300 


0214600 


WRITE THE- foallaekaie OF THE CURRENT OUTPUT CD TO eR NENS 
HOVE SPat CES 10 PRINT- r-LINE. 

MOVE DESTINATION-COUNT TO LP-DEST-COUNT. 

MOVE TEXT-LENGTH-OUT TO LP-TEXT-LENGTH-OUT., 

MOVE STATUS-KEY-OUT TO LP-STATUS-KEY-OUT. 

HOVE ERROR-KEY 70 LP-ERROR-KEY-OUT. 

MOVE SYMGOLIC-BESTINATION TO LP-SYMBOLIC-DESTINATION, 
WRITE LP-OUT AFTER 1. 


ERRORE- a 


REPORT TO GPERATOR ON ERRORS FROM LAST INPUT FROM DATA-COMM. 


chet ema eonatse a enratmtrent EAANa 


HOVE! URECETVE. ERROR | 7 To TYPE- FIELD. 
MOVE STATUS-RKEY-IN TO ERROR-FIELD. 
IF UNKNOWN- INPUT 
MOVE " (QUEUE UNKNOWN OR ACCESS DENTED)"™ 
TO COMMENT-FIELD. 
IF MUS-HISSING 
HOVE " (MCS/DCSS NOT PRESENT)" 
TO COMMENT-FIELD. 
IF NOT KNOWN-INPUT-ERRORS 
HOVE " (UNKNOWN ERROR)" 
TQ COMMENT-FIELD. 
Meta COMM-ERROR. 


MOVE "SPACES TD SYMEQLIC-QUEUE 
PERFORM GET-QUEUE-NAME. 
IF MCS-MISSING 
DISPLAY “INITIATE A SUITABLE MCS THEN ""AX"" THIS TASK" 
ACCEPT DC-MESSAGE. 
IF NOT KNOWN-INPUT-ERRORS 
DISPLAY “PROGRAM ERROR - ""DP'" THIS TASK" 
ACCEPT DC-NESSAGE 
STOP RUN, 


021700 DISP-ERRORS-OUT . 
p21000ss eee 7 


0219003 
022000%—— 


022100 
N22200 

022500 
022400 
022500 
022660 
022600 
022900 
023600 
022100 
023200 
023500 
025400 
025500 
023600 
023700 


REPORT TO OPERATOR ON ERRORS FROM LAST OUTPUT TO DATA-COMM. 


MOVE TRANSMIT ERROR 10 “TYPE- FIELD. 

MOVE STATUS-KEY-QUT TO ERROR-FIELD. 

IF UNKNOWN-OUT PUT 
MOVE " (STATION UNKNOWN OR ACCESS BENTED)" 
TO CORHER FIELD. 

IF BAD~DESTINATION-COUNT 
TQ COMMENT — FIELD, 

IF BAD-TEXT-LENGTH 
MOVE " (REQUIRED TEXT-LENGTH > DC-BUFFER SIZE)" 
TO COMMENT-FIELD, 

IF DCSS-HISSING 
MOVE " (MCS/DCSS NOT PRESENT)" 
TO COMMENT-FIELD. 

IF NOT KNOWN-DUTPUT-ERRORS 
MOVE " (UNEHOQUN-ERROR >" 
TO COMHENT-FIELD. 


Move " ¢ BAD ! 


+" 
e Net 4 a 
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oy ye 
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023800 DISPLAY COMH-ERROR. 
023900 IF UNKNOWN-OUT PUT 


024000 DISPLAY “CORRECT, THEN "“AX"" THIS TASK" 

024100 ACCEPT DC-HESSAGE, 

024200 IF BAD-DESTINATION-COUNT OR NOT KNOWN-OUTPUT-ERRORS 
024300 DISPLAY “PROGRAM ERROR - ""DP"" THIS TASK" 

024400 ACCEPT BC- “MESSAGE 

024300 STOP RUN. 

024600 IF BAD-TEXT-LENGTH 

024700 DISPLAY "STATION IS HOT TRESO - SELECT ANOTHER QUEUE" 
024600 MOVE SPACES TO SYMBOLIC-QUEUE 

024900 PERFORK GET-QUEUE-NANE. 

025090 IF DOSS-MISSING 

025100 DISPLAY "INITIATE A SUITABLE MCS THEN ""AX"" THIS TASK" 
025200 ACCEPT DE-MESSAGE. 


025400 MOVE “FY TO OUT-STATUS-VALID. 
025400 ANALYSE-ERRORS. 
9255004 ae 


0P5400% ~ REPRT. ERRORS: IF ANY. | | 
025700% — 2 ae a ete ers te asp rcseu ede esnscdersias ees shveeneet cate tec catansiel 
025800 Ir NOT ‘gp0D- TMP UT- STATUS | 

025900 PERFORM DISP-ERRORS-IN, 

026000 IF NOT GOOB-OUTPUT-STATUS AND OUTPUT-STATUS-VALID 

626100 PERFORK LISF-ERRORS-OUT. 

026200 basics 


024400% TAKE NEXT MESSAGE AND SEND IT BACK FROM WHENCE IT CAME 

O26500% IF Seanue FREE. | 

0264004#------ 

0246700 PERFORN | GET- -HESSAGE.. 

O246B00 IF GOOD-INPUT-STATUS PERFORM XMIT. % XMIT ¥BEFOREx LOG ALLOWS=-~ 
026900 PERFORM LOG-iR-CD THRU LOS-IN-CD-END,. % PRINTER AND QUTPUT-DC == eal 
027000 IF GOOD-INPUT-STATUS PERFORM LOG-OUT-CD. % TO INTERLEAYE sos 
027106 PERFORM ANALYSE-ERRORS., 

027200 START-DF-PROGRAM. 

O27 SOOKENE % 

Q27400844%4 

OP75Q0HR*E#ER START OF PROGRAM 44H HMMM EM RRH HARKS RSH EA KH RA KAKA KHER H 

O27 EOOXXEHX 

O27 7 OOXK EH 

027800 OPER OUTPUT LOG. 

027900 PERFORM GET-QUEUE-NAME. 

026000 PERFORM TURNAROUND UNTIL EOd. 

028100 CLOSE LOG RELEASE. 

O2B200 STOP RUN. 
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SAMPLE RPG PROGRAM 


HUME TILT CTCSP CCC SEeCCCoCrCeeeeereceereeereret tt CLTee ee eee elerre cere. 


COOO2Fs 
GOOOSF* 
DOOGGE % 
GOCQSF # 
QOGOGF # 
OCOG7Fs 
OBOGEF % 
GOOCOFs 
COOLOFs 
COOLLF% 
COOLS s 


t 
PROPRIETARY PROGRAM MATERIAL 

# 

THIS HATERIAL IS PROPRIETARY TO EURRQUGHS CORPORATION 3 
AND IS HOT TO 8E REPRODUCED, USED OR DISCLOSED EXCEPT IN # 
ACCORDAHCE WITH PROGRAM LICENCE OR UPON WRITTEN AUTHORIZATION # 
QF THE PATENT BIVISTON OF BURROUGHS CORPORATION, DETROIT, % 
MICHIGAN 48232, * 
# 

x 

5 

# 


COPYRIGHT (C} 197° BURROUGHS CORPORATION 


OCOOLIE HX RHE RAH R SH AHHR HE RH HAE RA RH AAR AA RSH ERAN AKA RH ARRAN ERAS LAR AAEM 


QOOGLOF KEY IP, BO 80 KEY BORD 

QOOZOF # 

QOOSOF # 

COG4OF # FILEO IS THE SYHSOLIC QUEUE HAHE . THIS NAME HUST BE SEFINED IN THE 
OOOSOF% FILE SECTION OF THE NELSYS FILE TO BE USED. 

OOOEOF % THIS FILE IS FURTHER DESCRIBED ON THE T-SPEC. 

OGO7 OF» THE FILE IS DEFINED AS COMBINED DEMAND. THIS MEANS THAT A MESSAGE 
COCBOF% RAN BE RECEIVED AND TRANSHITTED IN THE SAME CYCLE. 

OOCSOF # 

GOLOOF # 

OOLIOFFILEO 8 8©6CD Loe. ce DATACOM 

OOL2GFQUTPUT 9 132 132 PRINTER 


OO130Ts 

OO140Ts | 

OO150T# THE DATA COMMUNICATION SPECIFICATION (T-SPEC) FURTHER DESCRIBES THE 
OO140Tx FILE DEFINED ON THE F-SPEC. 

OO170Ts THE ENTRY OF T IN COLUMN 146 DEFINES THAT THE FILE CAN TRANSMIT AND 
OO180T RECEIVE (NOTE - AN ENTRY OF R WOULD MEAN THE SAHE WHEN THE FILE 1S 
OOL90TS COMBINED). 

OO200T* THE ENTRY OF S IN COLUMN 40 DEFINES THAT THE FIELD NAME IN COLUMNS 
OG21LOT# 41-47 WILL CONTAIN THE STATION NAME. THE STATION NAME IS THE 
O02COTx SYMDO!TC SOURCE, AND THE STATION NAME MUST BE DEFINED IN THE STATION 
OO230T# SECTION GF THE NDLSYS FILE TO BE USED. 

002407 THE ENTRY OF O1 IN COLUMNS 53-54 IS THE ERROR INDICATOR. THIS 
OC2R0Ts INDICATOR WILL BE SET ON WHEN ANY OF THE ERRORS LISTED ON THE 
OO240Ts O-SPECS HAS OCCURED, 

CO270T THE ENTRY OF S IN COLUMNS 63 DEFINES THAT THE FIELD NAME IN COLUMNS 
OO2BOTx 64-70 WILL CONTAIN THE MESSAGE LENGTH OF ANY MESSAGES RECEIVED OR 
O0290T# TRANSHITTED. 

OOSOOT 

OOZLOTs 

OOS2OTFILEO T SSTAT O1 SMESS 

OO3TO1% 

003401% 

OOTSC1* THE COMBINED BATA COMMUNICATIONS FILE MUST BE FURTHER DESCRIBED ON 
OOS401% AN I-SPEC. 

OOS701% 

QO380I% 

OOS9OIFILEO NS Of 

604001 1 80 ALL 

OO4100% 

O0420C# 


OO430Lx 
00440C% 
OO4500% 
004¢460C% 
00470C% 
0O4B0C 

004900 

CS500C% 
O0510C% 
OOS20Cx 
OO530C# 
005400% 
OOSS0Cx 
00S4600% 
00570C% 
OOSSOL# 
OOSFOC% 
OOSCOC% 
CO6100% 
004200 
CO463OC % 
GO440C% 
006500 

006400 

00670C 

0045800 # 
OC4SOC% 
007000% 
00710C% 
007200 % 
§0730C 

GO740C 

007500 
00746004 
00770C% 
0O750C# 
CO? 900% 
OOBOCCT # 
OOBLOC# 
OOBSCCx 
COBIOCS 
OOB40C# 
ooeSOC# 
COS SOC# 
00870C% 
Oose0ls 
OOBPOC 
OO90GC# 
OO910C% 
CO920C 

OO9SCC 

00940C% 
009300 
009600D% 
609700% 


01 


NOL 
NOL 


NOL 
NOL 


THE FIELD NANES STAT AND MESS MUST BE DEFINED 
STAT MUST BE DEFINED AS ALPHANUMERIC AND HESS 
NUMERIC. 


iN: THE C<SPECS 
HUST BE DEFINED As 


MOVE ° 
Z-ADDO 


“STAT d 
MESS 70 


THE OPCOBE “READ” IS USED TO RECEIVE MESSAGES FROM AN INPUT OR 
COBINED DEMAND BATA COMMUNICATIONS FILE. 

THE INDICATOR RORMALLY SPECIFIED IN COLUMNS 58-59 OF THE C-SPEC IS 
IGNORED WHEN THE FILE NAHE SPECIFIED IN COLUMNS 32-42 IS A BATA 
COMMUNICATIONS FILE. 

AFTER THE RECETVE STAT WILL CONTAIN THE NAME OF THE STATION 
WHICH TRANSMITTED THE MESSAGE. 

AFTER THE RECEIVE HESS WILL CONTAIN THE MESSAGE LENGTH OF THE 
MESSAGE. 

IF THE RECEIVE FAILED THEN THE ERROR INDICATOR Q1 WILL BE SET ON, 
THE INDICATOR 04 15 USED TO INDICATE A RECEIVE ERROR. 


SETOF 0104 
READ FILE 
SETON 04 


WHEN THE MESSAGE CONTAINS “END“, THEN THE PROGRAM GOES TO END OF JOB 


“END’ COMP ALL LR 


MOVE HESS MES 7Q 


THE MESSAGE LENGTH OF THE HeSSAG 
MOVED INTO HESS, OTHERWISE THE 
MESSAGE WILL BE USED. 


TO BE TRANSMITTED BACK MUST BE 
cA 


E 
ESSAGE LENGTH OF THE RECEIVED 


NOTE - 80 CHARACTERS ARE EXPECTED TO BE RECEIVED (THE FIELD “ALL* IS 
BO BYTES LONG). IF THE OPERATOR TRANSMITS 80 CHARACTERS THE FIRST 
TIME AND THEN 70 CHARACTERS THE SECOND TIME THEN THE SECOND MESSAGE 
WILL CONTAIN THE LAST 10 CHARACTERS OF THE FIRST MESSAGE. THE BUFFER 
CANNOT BE CLEARED, THEREFORE AN ERROR MESSAGE SHOULD BE DISPLAYED IF 
THE MESSAGE TRANSMITTED IS LESS THAN 80 CHARACTERS LONG. THE 
OPERATOR SHOULD BE DIRECTED TO RE-TRANSHIT 80 CHARACTERS. 

THE ALTERNATIVE IS TO TAKE ACCOUNT OF THE HESSAGE LENGTH 
PROGRAMMATICALLY AND PROCESS THE MESSAGE ACCORDINGLY. 


MESS 


Z-A 
COUNT ADD COUNT 30 


THE COMBINED DATA COMMUNICATIONS FILE MUST BE FURTHER DESCRIBED ON 
AN O-SPEC. 


C-29 


111 009800 

112 009900 TF THE ERROR INDICATOR 15 SET OFF THEN THE RECEIVED MESSAGE IS 
113 O10000% ECHOED BACK TO THE STATION THAT TRANSMITTED THE MESSAGE. 

124 O10100% 

115 010200% 

116 Q10300FILEO > NOL 03 

Ji? 010400 

11g Q10300% 

1? 6010600% @OC@ 15 “CLEAR AND HOME” - THE SCREEN IS CLEARED OF THE LAST MESSAGE 
120) O10700% 

1e1 010800 

ide o10900 1 @OCe 

Lad 011000 ALL Gl 

Les 011100 6? “ HESSAGE ” 

123 011200 COUNT 9) 

Le 011300 11? “ RECEINCD FROM STATION ° 

we? G11400 STAT eye 

128 011500 b NOL 03 

129 011400 24 “ WITH NESSAGE LENGTH OF ° 

130 011700 MES ad 

ISi O11B00 oo ° AND SENT TQ STATION ° 

ae 011900 oT eT é3 

123 012000 B7 ° WITH MESSAGE LENGTH OF 

134 012100 NESS 74 

Low 0122008 

13& 012300% 

137 612400 TF THE ERRCR TXDICATOR 15 SET ON TREN. AM ERROR LIST I5 PRINTED. 
135 912500 THESE ERRORS CANNOT BE DETECTED BY THE MCS. 


THE RPG PROGRAM WILL ONLY SET ON AN ERROR INDICATOR AUD THEREFORE 
CANNDT DETERMINE WHICH OF THE FOSSTCLE ERRORS HaVe ACTUALLY 
OCCURED. ALL THE POSSTELE ERRORS ARE THEREFORE LISTED AND THE 
OPERATOR IS DIRECTED TO INVESTIGATE FURTHER. 


139 012600 
146 012700% 
1&1 O12800% 
12 O12900% 
143 012060% 
144 0131004 
143 Oi3200% 
144 014300% 
147 13400» 
146 OLSSGG0UTPUT D 11 04 


RECEIVE ERROR. 


149 = G13400 24 “xe ERROR ¥¥% EITHER -" 
SQ 017799 46 "FILE GR F-SPEC DOES NOT ° 
Si 13800 fe CUR Peeroke 10 Pick sent)” 
ine 613900 96 “ON OF NBLSYS, OR THERE T° 
182 014000 20. ° 5 NO Ee EXECUTING a=: 
1S4 014100 130 “NVESTIGATE’ 


153 0142003 
156 0143003 
iS? 014400 
188 014500 
15? 014600% 
160 O147000UTPUT BD il 01 


TRANSMIT ERROR, 


él 014800 4 “¥% ERROR ¥¥X EITHER -° 
1&2 014700 &8 ° STATION WANE ON T-SPEC ° 
143 15000 72 “TOES HOT CORRESPOND TO S° 
164 015100 94 “TATION SECTION OF NDLSYS* 
165 015200 120 “, OR HESSAGE LENGTH EXCE* 


C-30 


013300 123 “EDS” 


015400 Dil O1 

015500 24 “RECORD LENGTH ON F-SPEC, ° 
012400 48 ° OR THERE 15 NO MCS EXEC’ 
015700 69 “UTING --- INVESTIGATE” 
015800% 

015900% 


016000 IF THE ERROR INDICATOR IS SET OFF THEN THE RECETVCD MESSAGE 15 
016190% PRINTED ON THE LINE PRINTER, 


01462004 

0163003 

016400 De NOL 05 

014500 ALL 80 

014600 90 “MESSAGE * 

014700 COUNT 7 

016800 i119 ° RECEIVED FROM STATION * 
016900 oTAT 127 

017000 b i NOi O05 

017100 24 ° WITH MESSAGE LENGTH OF * 
017200 MES 31 

017300 J) ” AND SENT TO STATION ° 
017400 STAT 63 

017300 ; 8? © WITH MESSAGE LENGTH OF ° 


017400 HESS 94 


1 $CONTROL 200 BATA 1500 00001000 
2 $F ORKAT | GOOOL1O0 
3 $NOLIST 00001206 
4 €DATACOM G0001360 
SCG 00061405 
Ok ACIOOLS1LO- 
TS PROPRIETARY PROGRAM MATERIAL ZGG0G1315 
9 4 400001320 
> 4 THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION AND IS 700601325 
10 % NOT TO BE REPRODUCED, USED OR DISCLOSED EXCEPT IN ACCORDANCE WITH  %oo001730 
ii % PROGRAM LICENCE OR UPON WRITTEN AUTHORIZATION OF THE PATENT ZOGOOLZ35 
12 % DIVISION OF BURROUGHS CORPORATION, DETROIT, MISHIGAN 48232. ZOGG01 24.0 
13 x 200001345 
i COPYRIGHT (C) 1979 BURROUGHS CORPORATION 2000012590 
15; 2 “00001355 
1 OCC EES OSS STS STITT O0001340 
17 PROCEDURE OUTER} 00001400 
18 DEFINE CH fCHARACTERE? 04001509 
19 DECLARE PRINT.LINE CH(120)3 OOOCL400 
a0) FILE LOG WORK.AREA PRINT.LINE} CO001700 
aX GO0018O0 
7 ¥ PRINT BUFFER STUFF. OCCOLIGS 
a3 Y ATeLeTWrsTOTY 
ay REMAP PRINT LINE: Q0002100 
as Oi LP.IN, GOCO2209 
ab 02 LP.SYHMBOLIC. QUEUE CH(12), 00062360 
a? 02 BUMMY CH(L), 00062409 
a8) 02 LP.SUB.Q.1 CH(12), NOQC2S0 
x) G2 DUMMY CH(1}, G0G02409 
Sy 02 LP.SUB.Q.2 CH(12), GOOG2760 
z 02 DUMMY CH(id, G0002B00 
x GP LP.SUB.G.3 CH(13), GOG02IOG 
RS 02 DUMHY CHUL); 00003009 
4, 02 LP MESSAGE. DATE CH(S}, 00003100 
ca 02 DUMMY CH(1}; 0N005200 
3 G2 LP. MESSAGE. TINE CH(11}, 00003700 
3) 02 DUMMY CH(1), 00003400 
30 02 LP.SYMBOLIC.SOURCE  CH(12), G000Z500 
3 02 DUMMY CH(1), 00003406 
40 O2 LP. TEXT.LENGTH.IN CH(S); 00603700 
4d. 02 DUMMY CH(1}, COOOZECO 
40 02 LPLEND.KEY CHCL), OOCdSPO0 
43 02 DUMMY CH(1), 00004000 
4h, O2 LP.STATUS. KEY IN CH(2), GG004100 
4S 02 DUMMY CH(1), 06004200 
Ads 02 ‘LP. MESSAGE.COUNT CH(7)}3 00004300 
4? REMAP PRINT.LINE? | 00004400 
463 BUFFER .LINE CH(BO>; 00004500 
49 REMAP PRINT.LINE: 00004400 
ae) 01 LP.OUT CH(80), 00004700 
51. 02 LP. DEST. COUNT CH(S), COO048C0 
ava 02 DUMMY CHC), 00004900 
aes 02 LP.TEXT.LENGTH.OUT  § CH(S), 00065000 
4 02 DUMMY CH(1); 00005100 
aes 02 LP.STATUS. KEY.OUT CH(2), 00005200 


C-32 


nere an 


ri we xs 


ri ert rt re 


Oc DUMMY 


O2 LPERROR. KEY. OUT 


O2 DUMMY 


O2 LP.SYMBOLIC. DESTINATION 
DATA-COMM SUFFER STUFF 


SEGMENT DC. BUFFER (1920}3 


REMAP DC. BUFFER: 
DC .SLOT 

REMAP DC.EUFFER: 
DC MESSAGE 
BC.REST (1917) 


OTHER GLOBAL GOODIES 


DECLARE 
O01 COMM.ERROS, 
Oe TYPE.FIELD 
O2 ERROR.FIELD 
Q2 COMMENT. FIELD 
PRINT LINES 
LINE. POINTER 
SYMBOLIC. QUEUE 
END. FLAG 


CHL), 
CHCL), 
CHUL), | 
CH(12)} 


CH(EQ)} 


CH(3), 
CHL); 


CH(15), 
CH(2}, 
CH(45), 
FIXED, 
FTXED, 
CH(12), 
HCL); 


DEFINE EOJ £(END.FLAG="5") £3 


END FLAGIS"RY Pp 
DECLARE 
OUT .STATUS. VALID 


CHC1)} 


DEFINE OUTPUT.STATUS. VALID £(QUT.STATUS.VALID="T") 3 


OUT STATUS. VALIDs=" We 


DEFINES FOR ERROR HANDLING.... DO NOT DO THIS IN REAL LIFE. 
AS IT GENERATES A LOT OF S-CODE.... USED HERE AS ILLUSTRATION ONLY. 


DEF INE 

HOOD. INPUT STATUS 
UNKNOWN. INPUT 

MCS MISSING 
KNOWN. INPUT ERRORS 
GOOD. OUTPUT. STATUS 
UNKNOWN. OUTPUT ' 
BAD. DESTINATION. COUNT 
BAD. TEXT LENGTH 
DOSS MISSING 

KNOWN. OUTPUT. ERRORS 


Z(DC. INPUT STATUS=0)£, 
ECDC. INPUT STATUS=20)£, 
ECDC. INPUT STATUS=91 2, 


ECURKROWN INPUT OR MCS.MISSING DZ, 


£CDC OUTPUT STATUS=0) £, 
ECDC OUTPUT STATUS=20)2, 
£(DC.QUTPUT STATUS=30)2, 
ECDC OUTPUT STATUS=50)£; 
ECDC. OUTPUT STATUS=91 D2, 
ZCUNKNOWN OUTPUT OR 

BAD DESTINATION.COUNT OR 

BAD. TEXT.LENGTH OR 

DCSS MISSING) £; 


PROCEDURE GET.QUEUE.NAME? 


GETS SUBNET QUEUE NAME FROM OPERATOR. THIS NAME MUST BE 


0000S 200 


OO00S406 


OOOCSSO0 
00005400 
OG005 700 
OOG05500 
00005900 
000046000 
S0005100 
O0006200 
060045700 
00006400 
COCOS500 
06004600 
00004700 
CO004500 
06006900 
QO007O00 
C0007 1090 
G0007200 
00097200 
00067400 
00007590 
00007600 
00007700 
006007800 
06007900 
CO008000 
00008100 
00008200 
00008300 
00008400 
OCOGES4O0 


00008500 


00008700 
OOOCEEOO 
00008900 
00009000 
00009100 
00009200 
00009300 
40009400 
60009500 
00009400 
00009700 
00005800 
00009906 
00010000 
00010109 
00010200 
00010300 
00010400 
09619300 
00010400 
00010700 


a 
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DEFINED IN THE NDL PROGRAN FILE SECTION. 


DISPLAY("TYPE INPUT QUEUE NANE..."); 
ACCEPT (SYMBOLIC. QUEUE); 

END G5ET. QUEUE .NANE; 

PROCEDURE SET. MESSAGE; 


SPACE-FILL DATA-COMM BUFFER, TAKE NEXT MESSAGE FROM SUBNET Q, 


SET EOJ FLAG IF END RECEIVED. 


DECLARE I FIXED; 
DO MOVE.SPACES.TO.DC. BUFFER FOREVER; 
DC .SLOT(I#80) s=""5 
IF CIs+i] >= 24 THEN UNDO; 
END MOVE. SPACES. TO.DC. BUFFER? 
DC RECEIVE (SYMBOLIC. QUEUE, DC.SLOT, 1920); 
IF DC.NESSAGE = "END" THEN END. FLAG?="S"} 
END GET. MESSAGE; 
PROCEDURE WRITE.LINES; 


WRITE INFORMATION FROM LAST MESSAGE RECEIVED TO PRINTER 


PRINT LIRES=S""7 

BUFFER.LINES=DC .SLOT(LINE. POINTER); 
JRITE (LOG, BEFORE,LINE}; 

LINE. POINTERS +80} 

END WRITE. LINES; 

PROCEDURE LOG.IN.CD; 


WRITE CONTENTS OF CURRENT INPUT CD TO PRINTER 


DECLARE 

TEMP CH(8), 

F TEMP FIXED; 

PRINT LINERS "3 

LP. SYMBOLIC QUEUE S=SYHBOLIC. QUEUE; 

DO MOVE. DATE; 
TEMP>=DC DATE; 
IF TEHP = "" THEN LP. MESSAGE. DATES="00/00/00"; 
ELSE. 
DO; 
SUBSTR(LP MESSAGE DATE, 0,2) S=SUBSTRCTEMP 0,2); 
SUBSTR(LP MESSAGE DATE, 2,1) 5="/"3 
SUBSTR(LP. MESSAGE DATE, 3,2) s=SUBSTRITEMP,2,2)} 
SUOSTR(LP.MESSASE DATE; S,1)5="/"; 
SUBSTR(LP. MESSAGE. DATE, 6,2) s=SUBSTR( TEMP, 4,2); 


END} 
END HOVE. DATE} 
DO MOVE. TINE; 
TEMP!=DC. TIME} 
IF TEMP = "" THEN LP.MESSAGE. TIHES="00/00/00/00/"5 
ELSE 
DO; 
SUBSTR(LP. MESSAGE. TIME 072) s=SUBSTR(TEMP,0;2)3 
GUDSTR (LP. MESSAGE. TIME, 2,1) 25"/"3 


00010800 
OO010900 
00011000 
60011100 
00011200 
00011200 
00011400 
00011500 
00011400 
00011709 
00011800 
00011900 
00012000 
Oc012100 
00012200 
09012300 
00012400 
0COL2400 
00012700 
G0012800 
40012900 
60013000 
00013100 
00013200 
00013300 
§6013400 
G0013500 
70013600 
06013700 
90013800 
00014000 
00014100 
60014200 
00014300 
06014409 
60014500 
00014600 
06014410 
00014620 
00014430 
00014700 
00014800 
00014900 
00015000 
OCC15100 
Ooc15110 
OO015200 
00015300 
00015400 
COC15410 
00015420 
00015430 
00015500 


— 00015600 


oe met 


rene 


at ee st 


SUBSTR(LP. MESSAGE. TIHE, 3,2) s=SUBSTR(TEMP,2,2)3 
SUBSTR(LPAMESSAGE. TIME, S,1}2="/"3 
SUBSTR(LP MESSAGE. TINE, 6,2) !=SUBSTR(TEMP)4,2)3 
SUBSTR(LP. MESSAGE. TINE, 8,1}2="/"3 
SUBSTR(LP MESSAGE. TIME, 9,2) 2=SUBSTR(TEMP,4,2)3 
END} 

END MOVE. TIME} 

LP.SYMBOLIC.SOURCE?=DC. ORIGIN: 

CONVERT (1,LP. TEXT LENGTH. IN, DC. TEXTLENGTH) 3 

CONVERT (1,LP END. KEY; DC. ENDKEY) 3 

CONVERT (O,LP.STATUS. KEY. IN, DC. INPUT. STATUS) } 

DC ACCEPT (SYMBOLIC. QUEUE,F.TEMP)} 

CONVERT (1,LP.MESSAGE.COUNT,F. TEMP)? 

WRITE(LOG, BEFORE, LINE (2))3 

IF NOT GOCD.INPUT.STATHS THEN RETURN: 

LINE. POINTER?=03 | 

F.TEMP?=DC. TEXTLENGTH? 

DO FOREVER} 
IF LINE. POINTER >= F.TEMP THEN UNDO? 
URITE.LINES? — | ) 

END} 

END LOG.IN.CD} 

PROCEDURE XNIT} 


SEND CURRENT MESSAGE BACK TO ORIGINATOR, 
MARK OUTPUT STATUS AS MOT HAVING BEEN ANALYSED, 


DECLARE 
SYMEOLIC DESTINATION CH(12), 
TEXT. LENGTH.OUT FIXED; 


SYMBOLIC. DESTINATION: =DC ORIGIN} 

TEXT LENGTH. OUTS=DC. TEXTLENGTH} 

BO .SEND(SYMGOLIC. DESTINATION; DC, SLOT, TEXT. LENGTH. OUT,EMI); 
QUT. STATUS VALIDS="T"} 

END XMIT; 

PROCEDURE LOG.OUT.CDB; 


WRITE THE CONTENTS OF THE CURRENT OUTPUT CD TO PRINTER 
SYMBOLIC SUB.QS AND DEST. COUNT SET BY COMPILER 


PRINT LINEs=""5 

LP.DEST.COUNTs=" 9 1"3 

CONVERT (1,LP. TEXT. LENGTH. GUT, DC. TEXTLENGTH) 3 
PONVERT(O,;LP.STATUS. KEY .OUT, DC. OUTPUT. STATUS) 3 
CONVERT (1,LP. ERROR. KEY OUT, DC. ERRORKEY)} 

LP. SYMBOLIC. DESTINATION?=DC.ORIGIN} 

WRITE (LOG, BEFORE, LINE) } 

END LOG.OUT.CD; 

PROCEDURE DISP.ERRORS. IN} 


REPORT TQ QPERATOR ON ERRORS FROM LAST INPUT FROM DATA-COMM 
TYPE.FIELDS="RECEIVE ERROR"; 


CONVERT (O,ERROR. FIELD, DC. INPUT STATUS); 
IF UNKNOWN. INPUT THEN 


00015700 
00015800 
00015900 
00014000 
00016100 
00016110 
000146200 
00016300 
00014400 
00016500 
00014400 
00014700 
06016800 
00014900 
G04 7000 
Q0027100 
00017200 
60017360 
OO017400 


— 00017900 


00017440 
00017700 
06017800 
OOC1E640 
CO919100 
COOLGEO0 
OOOLE300 
00013400 
GOOLB5G0 
00010400 
06018700 
O0G18000 
OOG1B8900 
QGO19090 
O0G19100 
GO019200 
00019300 
O0G19400 
00019500 
06019400 
00019700 
60019860 
GOOL9SRD 
60920060 
09020100 
06020300 
00020300 
00020400 
60020560 
GO020600 
60920700 
OOGS200 
CCOI0909 


“wt “eee wt 


00021000 
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COMMENT. FIELDi=" (QUEUE UNKNOWN OR ACCESS DENIED)"; 
IF MCS.MISSING THEN | 
COMMENT. FIELD?=" (MCS/DCSS NOT PRESENT)"; 
IF NOT KNOWN. INPUT.ERRORS THEN 
COMNENT.FIELDI=" (UNKNOWN ERROR) "3 
DISPLAY (COMM. ERROR} } 
IF UNKNOWN INPUT THEN 
DO} 
SYMBOLIC. QUEUES=""3 
GET. QUEUE NAME} 
END; 
IF MCS.MISSING THEN 
DO} 
DISPLAY("INITIATE A SUITABLE MCS THEN ""AX"" THIS TASK")} 
ACCEPT(DC.MESSAGE); 
END} 
END DISP.ERRORS. IN} 
PROCEDURE DISP.ERRORS. OUT; 


REPORT TO OPERATOR ON ERRORS FROM LAST OUTPUT TO DATA-COKM 


TYPE.FICLO:-"TRANSHIT ERROR"; 
CONVERT (0, ERROR. FIELD, BC. OUTPUT. STATUS); 
IF UNKNOWN DUTPUT THER 
COMHENT.FIELDi=" (STATION UNKNOWN OR ACCESS DENIED)"; 
IF BAD.DESTINATION.COUNT THEN 
COMMENT. FIELDi=" (INVALT DESTINATION COUNT)"; 
IF BAD. TEXT.LENGTH THEN 
COMMENT.FIELDs=" (REQUIRED TEXT LENGTH > DC.BUFFER SIZE)"; 
IF DCSS.MISSING THEN 
CONMENT.FIELDi=" (MCS/DCSS NOT PRESENT)"; 
IF NOT KNOWN.OUTPUT.ERRORS THEN 
COMMENT. FIELDi=" (UNKNOWN ERRORD"; 
DISPLAY (CONH. ERROR) } 
TF UNKNOWN.OUTPUT THEN 
BO; | 
DISPLAY ("CORRECT. THEN "“AX"" THIS TASK"); 
END; 
IF BAD. DESTINATION.COUNT THEN 
DO; 
DISPLAY("PROGRAM ERROR - ""DP"" THIS TASK"); 
ACCEPT (DC. HESSAGE 3; 
STOP; 
END; 
IF BAD. TEXT.LENGTH THEN 
DO; 
DISPLAY("STATION IS NOT TDB30 - SELECT ANOTHER QUEUE"); 
SYMBOLIC QUEUE F=""; 
GET QUEUE. NAME; 
END} 
IF DCSS.MISSING THEN 
DQ; 
DISPLAY("INITIATE A SUITABLE MCS THEN ""AX"" THIS TASK"); 
ACCEPT (DC MESSAGE > + 
END; 


00021100 


00021200 
00021500 
00021400 
00021500. 
000214600 
00021700 
00021800 
00021900 
O0022000 
00022106 
00022200 
00022500 
00022400 
00022500 
00022500 
CO022700 
00022800 
OOO eT OU 
G0023000 
60025100 
CCO27200 
90623500 
00023400 
GO027300 
00023600 
G0023706 
00023800 
00022900 
00924000 
00024100 
00924200 
00024300 
00024400 
00624500 
00024400 
60624700 
06024200 
60024900 
06023000 
06025100 
00025200 
00023300 
00023400 
00025500 
00025600 
G0025700 
89023800 
OO02S 900 
00026000 
06024100 
000246200 
00024300 
00024400 
00026500 


276 DUT STATUS. VALIDI="F"; 


00024600 
277 END DISP.ERRORS.OUT} 00024700 
a? PROCEDURE ANALYSE.ERRORS? 00024800 
279 oY 00524900 
230 % REPORT ERRORS IF ANY 00027000 
api x 00027100 
202 IF NOT GOOD.INPUT.STATUS THEN DISP.ERRORS.IN} 00027200 
ek IF NOT GODD.OUTPUT. STATUS AND OUTPUT.STATUS.VALID THEN 00627300 
2B4 DISP.ERRORS OUT} | 00027400 
25 END ANALYSE. ERRORS? 00027500 
286 PROCEDURE TURNAROUND} 00027600 
207 x 60027700 
288 % TAKE NEXT MESSAGE AND SEND IT BACK FROM WHENCE IT CAME IF ERROR FREEOGO27800 
9 00027900 
red) GET MESSAGE; QOG2B000 
204 IF GOOD.INPUT.STATUS THEN XMIT? 00028010 
aoa LOG.IN.CD; 00920100 
23 soIF GOOD. INPUT.STATUS THEN LOG.OUT.CD; — 00028200 
24 ANALYSE. ERRORS} C:0028700 
205 END TURNAROUND} 00028800 
26 XX OOGPB900 
207 477 00029000 
S00 2NN"Y START. OF. PROGRAM 00029100 
apg yyy 00029200 
BOO XZY 0OG29300 
201 OPEN(LOG); 00029400 
302 GET. QUEUE .NANE} 00029500 
703 DO FOREVER} | 09029400 
Fh IF EQJ THEN UNDO} 00029800 
305 TURNAROUND} 90629900 
Og END} 00020000 
207 SLOSE(LOG); 06020100 
208 STOP; 00030200 
9 END OUTER: 09620300 
24.0 FINI} 00620400 
Sid FILE. DEFAULT(LOG) !=TYPE2} 00030500 
412 RECORD (LOS) 2=120} 06030600 
313 PUFFER(LOG) s=120} 00930700 


SAMPLE NDL PROGRAM 


The sample NDL program provides control of two 
lines, both using Burroughs asynchronous poll/select 
line discipline. One line provides ‘‘host poll/select”’ 
(that is, the channel polls and selects remote termi- 
nals to solicit input and route output), and the other 
line provides ‘‘terminal poll/select’’ (that is, the 
channel is polled and selected by a remote host to 
control message transfer). 


The poll/select line discipline is a multipoint proce- 
dure. The central host system solicits input from 


(polls). Each remote station in turn uses the fol- 
lowing poll message: 


EOT AD1 AD2 POL ENQ 


where EOT, POL, and ENQ are predefined line con- 


trol characters, and AD1 and AD2 are address char- 


acters identifying one of the remote stations. The re- 
mote station replies with EOT if no message is avail- 
able (whereupon the polling system proceeds to the 
next station on that line), or sends the message using 
the following format: 


SOH AD1 AD2 STX <text> ETX BCC 
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where SOH, STX, and ETX are line control charac- 
ters, and BCC is a block check character computed 
from the <text> portion of the message. (The host 
system calculates its own BCC when receiving the 
message for comparison with the transmitted BCC to 
validate the message transfer.) If the message is re- 
ceived correctly, the polling system sends ACK, and 
the remote station completes the transaction with 
EOT. If the message is received incorrectly, the pol- 
ling system sends NAK, whereupon a subsequent 
poll is needed to retry the message. 


The host system directs output to (selects) a re- 
mote station using the following select message; 


EOT AD1 AD2 SEL ENQ 


where EOT, SEL, and ENQ are line control charac- 
ters and AD1 and AD2 are address characters identi- 
fying one of the remote stations. The remote station 
replies ACK or NAK, depending on its ability to re- 
ceive the message at that time. If the remote station 
sends ACK, the central system sends the message in 
the format described for a response to a poll. The re- 
mote station then sends ACK or NAK as determined 
by the BCC computation. The transaction is then 
complete, and is retried by a subsequent select if the 
message was NAK’ed. If the remote station was un- 
able to receive the message (that is, it sent NAK to 
the select message), then a subsequent select is 
needed to retry the message. 


An alternative method of selecting may be used if 
the central system is confident that the remote sta- 
tion is capable of receiving a message. This method 
is known as fast select, and omits the initial ACK or 
NAK response to the select message. The formatted 
text message follows immediately after the fast se- 
lect message as follows: 


EOT AD1 AD2 FSL SOH ADI AD2 STX 
<text> ETX BCC 


where FSL is the fast select control character. In all 
other respects, the transaction is identical to a nor- 
mal select. 


NOTE 
To improve readability in the following 
description, a dot(.) has been included 
in references to sequence numbers. For 
example, seq. 7001.0300 refers to se- 
quence number 70010300. 


The Implementation 


The sample NDL program provides host 
poll/select on physical channel 5 and terminal poll/ 
select on physical channel 6. (The B 80 was a one- 
digit channel number for line address; see CMS 
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NDL Manual.) The line descriptions are at seq. 
8700.xxxx and 8800.xxxx. The host poll/select line is 
described first, starting from the line description, 
and then the differences required for the terminal 
poll/select line are noted. The host poll/select line is 
identified to the system as logical line number zero 
(LLNO) since it is the first line declared in the pro- 
gram. 


The Host Line 


The following describes the NDL code for the 
host poll/select line. 


Line Section 
The line address is defined at sequence 8700.0100. 


The stations on the line are defined at seq. 45900. 
All stations on the line must be defined as terminals 
using the same control sets, and have the same com- 
munication hardware (sync. or async.). All stations 
on a line must communicate at the same speed. 


Station Section 


Seq. 8200.xxxx - 8500.xxxxx describe the stations 
defined for LLNO. Each station description is iden- 
tical (except for the address characters); therefore, 
only STATIONO (seq. 8200.xxxx) is described. The 
use of a DEFAULT station reduces the source file 
size (see the NDL Reference Manual). 


STATIONO is identified to the system as logical 
Station number 0 (LSNO) since it has the lowest 
identifier in alphabetic order of station identifiers. 


Seq. 8200.0100 defines the @ character (HEX 40) 
as the control character for the station. The control 
character is detected by an input request RECEIVE 
statement specifying CONTROL (seq. 6000.2900). If 
the character is detected by the RECEIVE, the mes- 
sage is routed to the MCS unconditionally. 


ENABLEINPUT is set true for this station; other- 
wise, the station is not polled. ENABLEINPUT is 
set false for an output-only station, unless the MCS 
is designed to explicitly set terminals ENABLEIN- 
PUT as part of a network startup procedure. 


The FREQUENCY statement presets a read-only 
value which the NDL programmer may use to con- 
trol the frequency at which a station is polled. The 
control set POLL (seq. 3000.xxxx) uses this value to 
control the relative polling rate of each station. 


The LOGIN statement resets bit 14 of the MCS 
data field in the message header. If LOGIN is set to 
true, then bit 14 of the MCS data field is set. The 


use of this flag is entirely at the discretion of the 


MCS programmer (for example, to enable the MCS 
to enter a log-in routine for the terminal operator). 


The mandatory statement MYUSE specifies the 
communication requirements of the station. If 
MYUSE is not output or INPUT,OUTPUT, then the 
system returns an error result to the MCS (UN- 
ABLE TO INITIATE) for output messages. Setting 
ENABLEINPUT to true causes a syntax error if 
MYUSE is OUTPUT only. This station is declared 
INPUT,OUTPUT to permit both polling and select- 
ing of the station. 


The RETRY statement specifies an initial value of 
10, to which the run-time variable retry is set (by 
data comm load, terminate normal, terminate block, 
terminate error, and initialize retry). Note that, in an 
output request, the run-time value is set to the retry 
value in the message header of the output message, 
unless the message header specifies 255 (hex FF). In 
this case, the RETRY statement value is used. (This 
is B 80 implementation only.) The maintenance of 
retry counts and the declaring of errors is the re- 
sponsibility of the NDL programmer through the 
control and request set logic. The value of RETRY 
must be determined empirically, since the configura- 
tion, line speed, and type of connection affect the in- 
tegrity of messages. A value of zero should be 
avoided. 


The WIDTH and WRAPAROUND statements de- 
fine values which may be interrogated by the MCS, 
and have no effect on the NDL program. 


The TERMINAL statement associates the station 
with a terminal (physical device) description. In this 
case, the description is of a TD 830 display terminal 
(seq. 8100.xxxx). Corresponding characteristics de- 
fined in the STATION and TERMINAL sections 
must be compatible. 


The actual address characters which identify the 
station in message transfers (1A for this station) are 
defined in the ADDRESS statement. The number of 
characters must correspond to the associated termi- 
nal address statement. 


The TYPE statement (seq. 8200.1200) selects pa- 
rameters from a list provided in the TERMINAL 
TYPE statement (seq. 8100.1500). The statement is 
not required if the terminal TYPE statement defines 
only one set of parameters. 


Terminal Section 


Seq. 8100.xxxx describes the one terminal which 
has been associated with all the stations on LLNO. 
It is possible that the network contains physical de- 
vices having slightly different characteristics, in 
which case, suitable terminal descriptions can be 


added to the NDL program. These terminal descrip- 
tions can then be associated with the selected sta- 
tions via the station TERMINAL statement. Since 
all stations on a line must be identical in certain 
characteristics (notably SPEED, TYPE, and CON- 
TROL), a DEFAULT terminal defining the common 
characteristics can be used. Each terminal descrip- 
tion then refers to the default terminal for its major 
characteristics, leaving only the variants to be de- 
scribed individually. 


The ADDRESS statement specifies the number of 
characters which constitute the terminal address. 


The SPEED statement declares a range of speeds 
from which the station SPEED statement must select 
one value. 


The TURNAROUND statement assigns a 12 milli- 
second transmit delay to the procedures used for sta- 
tions of this type, since the line is direct-connect and 
no modem values are available. 


The TIMEOUT statement assigns a one second 
timeout value which is used when no explicit value 
is applied to CONTROL and REQUEST RECEIVE 
statements. The one second timeout is used, for ex- 
ample, at seq. 6000.2600 and 6000.3200. 


The CONTROL statement associates the line con- 
trol procedure POLL with stations of this type. 


The REQUEST statement associates the receive 
and transmit requests POLLIT and SELECTIT with 
stations of this type. 


The MAXINPUT statement (seq. 37500) defines 
the amount of buffer space required by GETSPACE 
and RECEIVE TEXT statements in input requests 
for stations of this type. A message with a text 
length greater than 1920 characters is rejected by the 
request POLLIT (see seq. 6000.3100; ENDOF- 


BUFFER error action causes excess characters to 
be discarded). 


The BLOCKED statement informs the DCSS that 
this device is not capable of sending or receiving 
blocked messages. 


END, BACKSPACE, LINEDELETE, and WRU 
define the format control characters for this device. 
These characters must be specified if referenced in 
the associated CONTROL or REQUEST sets. No 
action is taken on receipt of these characters unless 
the CONTROL or REQUEST set references the 
identifier. For example, seq. 6000.3100 compares for 
the literal character ETX (a pre-defined constant). If 
the possibility exists that different terminals using 
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the request POLLIT have alternative end-of-text 
characters, then the statement should be recoded: 


RECEIVE TEXT [ 1, END, ENDOF- 
BUFFER : 7 ] 


(where [ and ] are left and right square brackets re- 
spectively) which achieve the same result using the 
END character defined for each terminal. 


The TYPE statement defines the connection re- 
quirements for this terminal. 


The BYTE statement declares the character size 
and parity requirements for this terminal. All sta- 
tions on a line must have the same character size. 


SCREEN, HOME, CLEAR, CARRIAGE, LINE- 
FEED, and WRAPAROUND define values which 
may be interrogated by the MCS, and have no effect 
on the NDL program. 


Control and Request 


The line control POLL, receive request POLLIT, 
and transmit request SELECTIT are assigned to the 
stations on the line through the associated terminal 
TD 830. Line execution starts at seq. 3000.4200. 
Line control initiates the output request (SELEC- 
TIT) at seq. 3000.6100. The INITIATE is not per- 
formed (behaves as a no-op) unless a message is 
queued for the current station (that is, the station in- 
dicated by the current value of the NDL variable 
STATION). At the completion of the output request, 
line control restarts at sequence 3000.4200. 


If no message for output is queued, line control 
tests (via FREQUENCY) whether the current sta- 
tion is due for polling (seq 3000.6800 - 3001.0100). 
The input requests POLLIT is initiated at seq. 
3000.9800. Line control restarts at seq. 3000.4200 af- 
ter completion of the input request; otherwise, a 
branch to seq. 3000.4700 is taken. 


Seq. 3001.0600 initializes the station index to 
MAXSTATIONS when all stations on the line have 
been serviced, allowing the control set to handle dif- 
ferent line configurations. Note that the system does 
not initialize STATION to any particular value; 
therefore, considering this, line control must be 
coded. Also, the occurrence of PAUSE and DELAY 
Statements give processor time to interrupts from 
other lines. 


Execution of the input request starts at seq. 
6000.1100. The transmission of the poll message can 
be seen at seq. 6000.1200 - 6000.1300. The request 
identifies the receipt of a text message by detection 
of SOH at seq. 600.2000. An explicity GETSPACE 
is included to allow the use for an error recovery 
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procedure. Seq. 6000.2800 ensures that the buffer 
pointer is set to the beginning of the buffer. Seq 
6000.2900 provides for detection of the stations con- 
trol character. Note that this character is not implic- 
itly stored in the text buffer. This is performed by 
seq. 6000.3000. A successfully received message is 
passed to the MCP via the TERMINATE NORMAL 
statement at 6000.3900. Note that this initializes the 
run-time value of RETRY; whereas, the explicit 
INITIALIZE RETRY is required on detection of 
EOT prior to the TERMINATE NOINPUT (seq. 
6000.4300). Seq. 6000.4900 - 6000.5100 maintain the 
retry count, and declare an error when the retry 
count is exhausted. Seq. 6000.4500 - 6000.4600 
‘‘flush’’ the line when errors are encountered (the 
exit from this infinite loop is via the TIMEOUT 
coded in error switch 1). Seq. 6000.4700 provides for 
the detection of continuous carrier, to prevent infi- 
nite flushing of the line. 


Execution of the output request set starts at seq. 
7000.0600. The select message sequence can be seen 
at seq. 7000.0700 - 7000.1200. Seq. 7000.2300 resets 
the buffer pointer to the start of the text buffer. 
Note that this is an entirely different buffer from the 
buffer in the receive request described earlier. A 
TERMINATE ENABLEINPUT at this point (initiat- 
ing the receive request) causes all text buffer refer- 
ences to apply to the input buffer. Successful termi- 
nation of the request (7000.3300) causes the output 
buffer space to be returned to the data comm buffer 
pool. The select sequence is discontinued in favor of 
the input request (7000.6500) if a NAK 1s received to 
the select, implying that the terminal is transmit 
ready and therefore unable to receive. 


The Terminal Line 


The coding for the line supporting terminal 
poll/select has the following differences from the pre- 
viously described line code. 


Line Section 


The physical line address is channel 6. 


The station on the line uses different CONTROL 
and REQUEST sets (declared via the associated ter- 
minal). 


This line is modem connected via a modem (data- 
set) whose physical characteristics are defined in the 
MODEM 1TA713 description (seq. 8000.xxxx). 


Station Section (8600.xxxx) 


RETRY -The retry value is greater (100) since the 
host normally has responsibility for discontinuing the 
transaction. 


TERMINAL -The station is associated with a ter- 


minal using the terminal poll/select control and re- 
quest sets. 


. TYPE.MODEM .-The station is connected to the 
line using a modem whose physical characteristics 


are defined in the MODEM TA713 declaration (seq. 
8000. xxxx). 


Terminal Section (8010.xxxx) 

The line uses terminal poll/select control and re- 
quest sets. Note that USELECTED is the receive 
request, and UPOLLED is the transmit request. 


This is a modem connected terminal. 
Modem Section (000.xxxx) 
The transmit delay, receive delay, type, and speed 


of the modem used (in this case) at both ends of the 
line are defined. 


Control and Request 


The line control UPOLL, receive request USE- 
LECTED, and transmit request UPOLLED are as- 


signed to the station on the line through the associ- 
ated terminal TD830X4. 


Line control execution starts at seq. 2000.2000 


Line control validates the control message until 
the sequence is recognized as a poll, a select, or a 
fast select (2000.2300 - 2000.4600) whereupon the re- 
ceive (2001.0400) or or transmit (2000.8500) request 
is initiated as appropriate. Note that the no-message- 
available EOT is transmitted by line control as a re- 
sult of INITIATE REQUEST (seq. 200.9300) be- 
having as a no-op when the station is not queued. 
TOG[0] is used as a fast select indicator to skip the 
portions of code not required when using that proto- 
col. 


The input and output requests have no significant 
differences from the previously described request 
sets, except that the inverse side of the procedure is 
handled. 


DCP Section 


The values for BUFFER and BUFFERCOUNT 
are selected to give a total buffer allocation of 15 
Kb. 


DL ERR EERE R RALLYE ER TL LR NLL MSE LNT LANA PEEL DOOOLOD 
2 x Z3G000200 
3% PROPRIETARY PROGRAN MATERIAL LGG60G300 
4 2% LOIHOCLOO 
5 % THIS MATERIAL IS PROPRIETARY TO BURRGUGHS CORPORATION AND IS  xo0000500 
& Z NOT TO BE REPRODUCED, USED GR BISCLOSED EXCEPT IN ACCUREANCE WITH  %09000600 
7 % PROGRAM LICENCE GR UPON WRITTEN AUTHORIZATION GF THE PATERT £00000700 
8 X% DIVISION GF BURRGUGHS CORPORATION, DETROIT, MICHIGAN 48232. eOOG00800 
o X ROH000900 
10 % EDPYRIGHT (C> 1979 BURROUGHS CORPORATION NG001060 
ti x 106001100 
42 UREA AERA LLNS aGrerereeneee Oe 

43 8SET LIST CODE HTCH RG1G000 
44 CONSTANT - ee 
15 ENT = 4"04", 00016200 
is SOW = 4"O1", 60010300 

i7 STX = 4"02", 000164606 
18 ACK = 4"04", 20010500 
i? MAK = 445%, | 00019400 | 

0 FTX = 4"03", % END OF TEXT 00010700 

si ERQ = 4"05", 4 ENQUIRE 60010800 

ia/e4 BS = 4"08", 4 BACKSPACE 00340900 

cee LF = 4"OA", 4 LINE FEED 0OG41000 

&, CR = 4"Op", % CARRIAGE RETURH 00021166 

ri) DC4 = 4814", %Z  BEVICE CONTROL 4 GOG11206 

re BEL = 4"7F%, %  BELETE 00011300 


C-41 


C42 


£ABESHEBYRHEHH EEE 


we HE KE RE RE PE TE 2 BE RE OD BE RE BRE BE HE RE 


2 


a 


ARE SEHIKARHWE eB Sas 


tt 


FF = 400", %  FORHS FEED 
POL = 4°70", POLL CHARACTER 
SEL = 4871", % SELECT CHARACTER 
FSL = 4°73", 


HOTE THAT THESE REQUESTS DO NOT CONFGRH EXACTLY 

TO ARY BURROUGHS STANDARD AND ALTHOUGH THESE REQUESTS 
WILL FURCTION CORRECTLY THEY SHOULD NOT BE REGARDED 
AS THe ONLY OR EVEN THE "BEST" POSSIELE SETS. 


ONTROL UPOLL: 
JEHHEIHE ECG SREB REE ERE 


IT AM A POLLED TERMINAL wren 
HEE SH HH REE IP EME SEE EE ESE ESSE HEE DEE SER EN EY 


TOGEO] 
TOGCL 


INDICATOR FOR SELECT, FASTSELECT. 
USER IN USELECTED FOR NOSPACE CONDITION. 


AFAKARASHAAHAKARAATA KAA ARKAKAAKAAARAA KKK ARRERASH 


ERROREOI = TIMEQUT®#1,%2 STANDARD ERROR MACRO 


STOPBIT=3, 

BUFOVFL:3, 

BREAK?3, 

PARITY #4, 

LOSSOFCARRIER? 1. 
z 
4 HHH HAH HHA HH HHA EK EEE EN HARES 
z 

i: TOGLO] = FALSE. 
—-TOGL1] = FALSE. ) | 
2: INITIATE RECEIVE. ZUAIT FOR SOMETHING TO 
RECEIVE (NULL)LO]. “APPEAR ON THE LINE 
: | 
r WE HAVE SEEH A CHARACTER 
z 
IF CHAR = EOT ZIF NOT,ITS NOT FOR US 
z ZAHD NE FALL THROUGH TO ERROR 
A “HANDLING AT LABEL 3 
r 
THEN BEGIN 
RECEIVE (25 MILLI} ADDRESS CERRGALOI, ABDERR?32. 
‘ ZHOTE THAT AN ADDERR 
“ UMERELY HEANS THAT THE 
% | ZPOLL OR SELECT WAS NOT 
“FOR US | 
Fi 
RECEIVE (25 HILLI) CPOL!20, SEL#30, FSL110, 
ERRORION. 

z “HERE UE USE NDLS BRANCHING 
“ABILITY TO GO GFF TO THE 
4 “APPROPRIATE ROUTINE IF 
z ZA POL SEL OR FSL IS RECEIVED 


6911400 
6004115800 
60011460 
OOGL1700 
00160008 
60106100 
0100206 
60100360 
00100400 
00109500 
20000000 
20000100 
POCO0206 
20060306 
20000400 
LOORISOO 
20000400 
26000709 
LOU00BOD 
COGOOTOD 
26601000 
20001100 
20001200 
20001300 
20001400 
20007500 
20061400 
2O0C1700 
20901860 
20001900 
20002000 
20G02100 
20002200 
2O0G2309 
PBOGL4 OQ 
20002500 
20002600 
20062700 
20002800 
PGOCLICD 
20085000 
200383160 
EQHGS2OO 
20085700 
20903409 
26003506 
OGIGSEOO 
20003700 


— 20003800 


20003900 
50004000 
20004100 

26004209 
20004300 
20004400 


SEYRARASSSVSYRARALK 


HL RE RE RE 2 


a 


DERE RE PE Re RE RE REE DE RE RS 


Pe He FS 


GO TU 3. 


21: INITIATE REQUEST. 


TUITIATE TRANSHIT. 
TRANSMIT EOT. 
FINISH TRANSHIT. 


20604500 

END. LOCOS AOD 

| 2CG04708 

HE BONY NANT THIS MESSASE COOGEOD 

SO LGOP ROWD UNTIL LINE | PHOTO D 

GOES IDLE. COGESCOd 

| | 20005100 

He ARE PROBABLY HERE BECAUSE THE CHAR WAS RET AN 2O0CS200 

EOT. 20003306 

20005400 

20005500 

20954909 

20005700 

0005800 

3: RECEIVE (25 MILLI) CERRDREOII. | 20065500 
60 12 3. | sos ATIMEQUT GETS US GUT OF LOOP 20004000 
AYO LAECL 1. PARITY (IE JUHK ON 20004100 

4LINE) TO LABEL 4 200045200 

20006500 

NOW HE LOOP WAITING FOR “HARK” 20606400 

| PO006500 

4: IF CHAR NE@ 4"FF" THER 60 TO 3. 20606400 
| | | 20004700 

ALL QUIET LETS GO AKD LISTEN AGAIN 20006800 

2OG0ETH 0 

3: 60 TO i. 20007000 
SUH HUGEB HEE SEE RHEE OEE HERE 20607100 
FAST SELECT seesceedaces 20007200 

ETETE rrr tre rere teeter reret Lr eeer rere rere ree ees f 200073006 
10: TOGLO] = TRUE. ZFLAG FOR USELECTEDS 20007406 
1i: INITIATE ENABLEINPUT. ACNTER USELECTIT 20007500 
26007406 

WE ONLY GET HERE IF ME DIDNT EXTER USELECTED 20007700 

THIS NILL ONLY HAPPEN IF THE STATION IS NOT READY 20007800 

TN THIS CASE THE “STATIGN" IS OUR HOST. 20007900 

a 20003000 

68 TO 3. £0008100 
TTT PEPE L oT eoreeLRELeLrerr etre ee hee eee er er Tree ees 3 COOCH200 
PULLED -snitaceweveess LORGRICO 

PESTLE COLtCesrietrHereereeeleeePeeceeerer ear e ees! 20008406 
20: RECEIVE (25 MILLI? € EXQ222,ERRORCOI). 20068500 
| 20008400 


ANY THLHG OTHER THAR AN ERQ IS AN ERROR SO WE HILL IGNGRESOO0S700 
THIS POL ALTHOUGH IT WAS FOR US. NOTE THAT THE POL/SEL 20006800 


DISCIPLIKE DOES NOT ALLOW US TO TELL THE HOST THAT 
WE SAW HIS POL BUT DIDNT LIKE THE FORMAT. 


A WE WILL ENTER UPQLLED 
AIF WE RAVE A HESSABE QUEUED 
AAND THE “STATION® IS READY 


AHOTHING TO SEND 
250 XMIT EOT 


COG087O0 


20069000 


20007100 
20007209 


20009300 


20007400 
20009500 
20009600 
20909700 
LOGOFEOD 
20007700 


C-43 


C-44 


Pe RE RS RE NE RR ne RE RE RE RE RE PE BE PR HE RE RI WE RS ME WE DRE RE RE RD RE DE ME HE HE BE NE Ee RE RE 


G0 10 i. 
vat ak ae ata ear gN EES 
4 SELECT wcccvccen-acvcnnes 
Lo MAAR RMN AN SNARE EET ANN AHL 
302 RECEIVE (25 MILLI) CENQ: si dicoacca 
60 70 3. 


CONTROL POLL: 


I POLL THE TERHINALS . sence 


VARIABLES USED:- 


FREQUENCY STATEMENTS. 


SET PROGRAMMER AS STATIONCFREQUENCY). 


THIS SIMPLER SET. 


0: IF STATION >0 THEN 
BEGIN 
PAUSE. — 
STATION = STATION - 1. 
INITIATE REQUEST. 


INITIATE ENABLEINPUT, 
60 10 0. 
END. 
STATION = MAXSTATIONS. 
IDLE. 


LINECTALLYLO]) = LINECTALLY£O]) + i. 4 GUNP ENTRY COUNTER 
AWE BO MANT TQ CHANGE FREQUERCY 


LIWE(QUEDSD) = TRUE. 


hk KAT THE END OF THIS CYCLE 
vA ATHRGUGH THE STATIONS 
rd 
Q: 7 ACDHE BACK HERE IF WE BO 
y4 ANGTHING FOR THE CURRENT 
4 |< ASTATION | | 
h 
IF STATION > 0 THEN % ARC WE AT THE END OF CYCLE 
vA aUOTE THAT BUE TQ THE LOGIC 
k 4A OF TRE LOOP TO LAGEL 1 THIS 


LINE (QUEUED) SET IF WE BID ANYTHING 

LINECTALLYTO]> NO OF TIMES BE HAVE ENTERED LINE 
CONTROL SINCE WE LAST CHANGED 
LINECTALLYE1]). 

LINE(TALLYCI 9) CURRENT ACCEPTABLE FREQUERCY. 

STATIONCFREQUERNCY > REAB ONLY VALUE 

STATION{ TALLY) CURRENT FREQUERCY 


ALL OF THESE ARE USED IN THE CODE TO TAKE NOTE OF AND ACT 
UPON THE YVARICUS VALUES DECLARED BY THE USER IR THE STATION 


A SIMPLE CONTROL SET WITHOUT FREQUENCY HANDLING FOLLOWS; 
THE COMRENTS IN THE ACTUAL CONTROL SET APPLY EQUALLY 10 


20010000 
eCO1Gi09 
20010206 
20070300 
20910400 
20010500 
30000000 
30000106 
30000200 
30600506 
50060400 
39000500 


30000504 


30000700 
30000800 
50000900 
30001000 
30001166 
30001206 
30001360 
30001400 
36001500 
300014600 


THE HAIN AIM IS TO ALLOW THE USER TO SPECIFY HOW OFTEN STATIONS 30001700 
ARE TO BE POLLED RELATIVE TO EACH OTHER. ROTE THAT SPECIFYING 
A FREQUENCY DOES NOT DO ANYTHING OTHER THAN PLACE A VALUE 

IN THE STATION TASLE BHICH IS AVAILABLE TO THE REQUEST/CONTROL 


30001800 
30001906 
40002606 
30002100 
50002206 
30002300 
30002400 
30002506 
306002600 
30002708 
30002860 
30002700 
30003000 


30003200 
360033006 
30003460 
30005506 
30003600 
30005700 
79094200 
T80G4500 
30904400 
30004560 
300024600 
30004706 
39004606 
E004 960 
JO005000 
3GG03106 
30003200 
30003500 


hE DE RE PE HE RE RE 


PE PE RE RE RE FE HL 


at eS Pe 


ane 


RE RE PRE RE RE HE HL 


an 


STATION = MAXSTATIONS. 
IF LINECQUEUED) THEN 
BEGIN 


WWILL ONLY BE THE CASE BHEN THE 26905406 


ALAST STATION WE HAUBLED WAS 
AOTATION ZERO. 


BEGIN 


PAUSE, 
STATION = STATION - 1. 
INITIATE REQUEST. 


“GIVE SOMEONE ELSE & CHANCE 
ASET UP NEXT STATION 

AWILL EXTER SELECTIT IF 

29 TAT ION 19 GuUEUCD ano READY 


NO OUTPUT FOR THIS TERMINAL. 


We HOY DeTERMIXE IF THIS TERMLAAL CAN BE USED FOR INPUT — 


AND IF SO SHETHER HE Wad? TO POLL HTH. 


IF STATION(ENABLEB) THEN 
BEGIN 


IS HE AT THE RIGHT FREQUENCY YET? 


ROTE THAT THE LOWER THE FREQUENCY THE HORE OFTEN 


WE WILL POLL THE STATION. 


IF STATIONCTALLY) OT LINE(TALLYLI9) THEN 

BEGIH 
PAUSE, 
STATIONCTALLY) = STATION(CTALLY) ~ LINECTALLY£i}). 
ABAVEE REXT TIME 

TRUE.ZHE HAD A CANDIDATE REO DIDNT 

—RHAVE A LOW ENOUGH FRESUEHCY 

£50 HE HAD BETTER dAKE SURE 
ATHAT HE DONT COURT HIM DOWN 
4100 GUICKLY AND UPSET THE 
ARELATIVE FREQUENCIES BY 
ACOURTING DOWN IN BIG STEPS 
v4 | 


LINE(QUEUED) = 


END 
ELSE 
BEGIN 
PAUSE. 
STATION(TALLY) = STATION(FREQUERCY} £60 EACK TOD 
| AREAL FREQUENCY TO SIVE OTHER 
ASTATIONS SGME KIND GF CHANCE 


INITIATE EHABLEINPUT. ENTER POLLIT IF STATION 
415 READY VALID EMACLEINPUT 


ADIDNT BO ANYTHING FOR THIS 
ZSTATION - TRY THE NEXT 


ZGIVE ANOTHER LINE A CHANCE 
ZEMD OF CYCLE 
ZWE CHANGE TALLY 1 


3O00S500 
30085400 
ZE00S706 
SOGG5000 
SOUS TOO 
2O00EG09 
SG0051 69 
28005209 
SOCRAIG0 
30006409 
oa 209 

35006400 
70006700 
JCCOGE00 
30004900 
20007000 
S000 7109 
30007200 
30007300 
30007400 
3O007300 
SQ007E00 
30007709 
30007800 
26607900 


SO008000 © 


SOGCB100 
30005260 
J3O005360 
SOOG8400 
30008500 
30008400 


30068700 


30006800 
JQOGEI0 0 
SO009900 
SOGGT109 
30009209 


30009700 


30009400 
SOQOFS 00 
SOO076G9 
3000072 
30085599 
39097700 
30020000 
30010100 
S001 0200 
30010300 
30070460 


30010500. 
30020500 


300107006 
30010800 


C-45 


C46 


LIRE(QUEUED) = FALSE. % RESET OUR FLAG 30010900 

4 ANOTE THAT THE ONLY CYCLE THAT 30011000 
r4 AWVILL ROT SET LIXECQUEUED) 30011100 
v4 AIS ONE IW WHICH HGBOQDY HAd S00112090 
A KAN OUTPUT QUEUED AND TRERE 30011309 
A AWERE NO STATIONS REABY FOR 30011400 
r4 ZIRPUT TE ROBODY WHO FAILED 30011500 
A ZABECAUSE OF A TOO HIGH FREGUENTYI9011400 
v4 4 IF WE BID POLL AXYORE WE 30031706 
A ZREENTERED LINE CONTROL AT = 30011800 
k ATHE TOP WHERE WE SET 30011500 
h ALINE QUEUEB 20012090 
IF LINE(TALLYLO]) = O THEN = AWE HAVENT LEFT THE CONTROL 30012100 

A ASINCE WE LAST CHANGED TALLY 2 20012200 
v4 450 WE MAKE SURE THAT BE BONT 30012306 
4 ZOFFEND OUR HIGH PRIORITY 30912400 
vA ZAIE LOW FREQUENCY USERS BY 30012500 
A ZX IGNORING THER. TO BO THIS 30012400 
y4 AWE HAKE THE QUALIFYING VALUE 20612700 
rs ZONE AND COUNT STATIONS BOSN 30012509 
v4 ZSLONLY URICH HEANS THAT THE = 3002290 
r4 ZAFIRST SYATION(S) GET LOTS OF  S3001s00o 
4 KEXTRA POLLS. | 30013100 
BEGIN 3001200 
LINECTALLYCLI> = i. 30013500 

LINECBUSY) = FALSE. ZALLOY SYSTEM TO REENTER US 30013400 

A AFOR THIS LINE IF ANYTHING 30613500 
r4 ZHAPPENS 30013400 
DELAY(1 SEC}. 468 TO SLEEP 30013700 

LINE(BUSY = TRUE. ZROSGDY WANTED US SO ON WE GO 30013600 

END 30015900 

ELSE 30014000 

BEGIN 30014100 
LINE(TALLYE13) = LINECTALLYCO). ZAAISE OR LOVER FRE@ 30014200 

LINECTALLY£O]) = 0. ADEPENSING ON HOW LONG SINCE  3OGi4206 

v4 AWE LAST DIB CIE HOS LOG WE =—30014400 
A ZHAVE BEEN POLLING WiTROUT 30014500 
A ZSELECTING ANYONE). 30014500 
EXD. 30014700 

60 70 i. 38014006 

END. 30014 900 
IDLE. 3G913000 
F 30035100 
4 WE ONLY IDLE THE LINE IF LINE(QUEVED) IS FALSE 30015200 
% THIS WILL ONLY BE THE CASE IF THERE ARE WO OUTPUT MESSAGES 30015206 
% QUEUED FOR ANY OF THE STATIONS GN THIS LINE AKD NONE OF 30015400 
X THE STATIGNS ARE ENABLED INPUT AND OR READY. 30015300 
h IN THIS CASE THE GNLY BAY ANYTHING WILL CHANGE IS WHEN THE HES 30018400 
% DOES SOMETHING OR A MESSAGE IS QUEUED FOR GRE OF THE STATIONS. 30015700 
4 IN EITHER CASE NDL.INTERP WILL START US UP AGAIN SO HE HAY AS 30013800 
& SARK THE LINE TELE SINCE Gi ARE DOING NOTHING EXCEPT WASTE 30015900 
A PROCESSOR RESOURCES. 30016000 
k | 36026100 
v4 NOTE THAT THE FREQUENCY HANDLING CODE WILL RUN INEFFICIENTLY 30014200 
in IF THERE ARE NO ACTIVE STATIONS WITH LOW FREQUENCIES. 30016300 


THIS ILL LEAD TO LON POLLING RATES AS THE CODE WILL 


60 ROWUND THE CYCLE <LOWEST DECLARED FREQUENCY> TINES 
BEFORE ACTUALLY ENTERING THE INPUT REQUEST. THIS NOT ONLY 
AFFECTS THIS LINE SUT ALSO ANY OTHER ON THIS DCP SINCE THE 
BCP IS INVOLVED IN TINE CONSUMING USELESS PROCESSING. 

The PORAULT FREGUENCY I6 ZERO (ALWAYS POLL) SO THIS WILL 
ONLY GE A PROBLEM IF SONEGNE MAKES A MESS OF THE STATION 


DECLARATIONS. 


REQUEST UPOLLED: 


a 


4 RHEAAAHRARANRTA AAAR HAAR AAA AA HAAR HR AHA RAK AARARARAHH 


I HAS POLLED She eRe es eee eS 


v4 
4 ceemeusannumnceautnuaebeenauesesoceeteeetnceaen 
k 


HE HL HE rE 


1: 


i0 


a 


12: 
20: 


ERROREOI = TINEGUT#20, 
STOPRIT#20, 
EUFOVFL:20, 
PARITY 520, 

BREAKS 20, 
LOSSOFCARRIER= 20, 


RE RAKRF AA RA RHA ARKH NAAR AAA AKA KARAT ARARRAAAK AHAAKKERS 


INITIATE TRANSHIT, 
TRARSHIT SOH. 
INITIALIZE @CC. 
TRANSHIT ADDRESS. 
TRANSHIT TRAN. 
TRANSHIT STX. 
INITIALIZE TEXT. 
TRANSHIT TEXT. 
TRARSHIT ETX. 
TRARSATT BCC, 
FINISH TRANSHIT. 
INITIATE RECEIVE, 
RECEIVE (1 SEC} CACKS10,NAKS12,ERROR(OI1. 
60 TO 2c. 


INCREXENT TRAN. 
INITIATE TRANSMIT. 
TRANSHIT EOT. 
FINISH TRANSHIT. 
TERHIRATE NORMAL. 


NAKFLAG = TRUE. 

IF RETRY = 0 THEN TERNINATE ERROR, 
RETRY = RETRY - i. 

TERHIRATE NOINPUT, 


REQUEST USELECTED: 


h 


Z FHAARNAAAAA RHA HRAR AHS A TAA RANA NAH ARH TAK HHA RAH AAA HARARE 


a 


i AS SELECTED i caueeausates 


30014400 
30014506 


39016400. 


20016760 
300146800 
30016700 
30017000 
30017100 
30017200 
40000000 
40000100 
46000200 
&£0000500 
40000406 
40600500 
40090600 
40000700 
40000800 
40000900 
40001000 
40001100 
40901200 
40001300 
40001400 
40001500 
40001400 


40001700. 


40001800 
40001900 
40002000 
40002100 
40002200 
40002300 
40002400 
40002500 
40002400 
40002706 
40002800 
40002900 
40003000 
40003100 
§0003200 
40003300 


40003400 


40003500 
40003400 
40003706 


40003800 


40003906 
40604006 
500000006 
3000100 
20006206 
500003006 


C47 


C48 


ae et 


Pe we PE RE PRE FS 


MAMAN ALANNA ANAK MARAE AN AI ON RENAE HERR AH 
T0HC0] = 9 = SELECT. 

i = FAST SELECT. 

TGGEL2 = 1 = RO SPATE, SO TERMINATE ROINPUT. 


HERHRAHASRRAARA AERA BARAKHAN CRANK KAR SA HARHARARKR KS RLART 


ERROREO] = TIHEQUT 222, 
: STOPETTEL?, 
BUFOVELE1?, 
PARITY: 21, 
LOSSOF CARRIER S22, 


PPEttrtrriTretetr teri TLItrereTeretrrteT TT Peet LLL LLL ELL 


GETSPACEL237. 
IF 165002 THEN GO TO 10. 


INITIATE TRANSMIT. 
TRANSHTT ACK. 
FINISH TRANSHIT. 


INITIATE RECEIVE. 

RECEIVE (1 SEC} SOH CERRORCOD,FORNATERR S19. 

INITIALIZE ECC. RSTART BCC ACCUMULATION 
RECEIVE ADGRESS CERRORCOT, ABDERRII9. 

RECEIVE TRAN CERROREOI, TRANERR=NULLO. 

RECEIVE STX CERRGRLOT, FORHATERR2199. 

INITIALIZE TEXT. 

CORTROLFLAG=FALSE. 

RECEIVELO-ETXi8,CONTRGLI. 

STORECENDOFEUFFERS 199. 

RECEIVE TEXT CERROREOIENDOFBUFFERS24;ETXI. 

RECEIVE SCC CERROREOI, BCCERR?19]. 


i0 


ALOOK FOR CONTROL CHAR 


ra 


18 


INCREMENT TRAN. 
INITIATE TRARSHIT. 
TRARSHIT ACK. 
FINISH TRASSHIT. 
TERHEHATE RORHAL. 


49: RECEIVE (23 MILLI) CO]. 
GO TG 1%. 

2i: IF CHAR NCQ 4"FF" THEN 60 TO 19. 

22: INITIATE TRANSHIT. 
TRANSHIT RAK. 
FINISH TRAXSUIT. 
RAKFLAG = TRUE. ASAY THAT WE NAK°ED IT 
IF TOGCiT THEN TERMINATE NOINPUT. RETRY GETSPACE FOREVER 
IF RETRY = 0 THEN TERMINATE ERROR. ASTANBARD ERROR HANDLER 
RETRY = RETRY - 1. 
TERMINATE NOINPUT, 


ZFSL SO TEXT 455 FOLLONS NGd 


ZSET POLNTER TO FRGHT OF TEXT 


Ooo 

QO9S00 
GLGEOG 
SGCEG700 
S0GG0804 
SOCOOPOR 
5O0G1000 
SOERL10G 
SOEOL200 
SYV0L300 
50901400 
SC3015G0 
HGGCTEOO 
50801700 
SCGC1E00 
SUOGT FOG 
50032000 
SO002100 
56069200 


86008500 


50002400 
SC002500 
500024600 
30002790 
SOC82EO0 


30002709 


SOIGIL00 
35003100 
30303200 
30953300 


80005500 


2O00I500 
90005500 
30693700 
30003800 
0005900 
30004000 
30004100 
30004200 
58004300 
30004400 
90004500 
3000+600 
30904700 
36004800 
20004900 
56005000 
50605106 
90005200 
30603306 
56003400 
90005900 
39005400 
500335700 
35005806 


416 
417 
416 
419 
420 
“ol 
“ce 
403 
4c4 
429 
4ae 
4a? 
408 
4O7 
44) 
44 
432 
A 
44 


4 


56005900 

23: TOGLi] = TRUE. “GETSPACE FAILURE 500045000 
60 To 19. | 50004100 
O4: RECEIVE CHARLO,ETX:182. ZOVERFLON - JUST DROP REMAINING 50604200 
60 10 24. ACHARS BUT KEEP ON GOING 50004309 
REQUEST POLLIT: | 60060606 
ERROR C1] = TIHEDUT:S, 60600100 
STOPSIT:3, 60000260 

BUFOVFLI3, 600003006 

PARITY 24, 60006406 
LOSSOFCARRIERSS. &0000500 

ERROR [2] = TIMEQUT:2, 60000400. 
STOPRIT=#2, 60000700 

BUSOVFL 32, SOCGOB0G 

PARITY 32, 60000900 
LOSSOFCARRIER?2. 60001000 

TOGLO = FALSE. | 60001100 
INITIATE TRANSMIT. 60001200 
TRANSMIT EOT. 60001300 
TRANSHIT ADDRESS. 60691400 
TRANSNIT POL, 60061500 
TRANSMIT ENG. 40001600 
FINISH TRANSHIT. 60001700 
INITIATE RECEIVE. 40001806 
RECEIVE (1 SEC) Ci). 80001900 
IF CHAR = SOH THEN 80002000 
BEGIN 60002100 
CONTROLFLAS = FALSE. 60002200 
{NITIALIZE SCC, §G002309 
RECEIVE (1 SEC) ADDRESS C1,ADDERRIZ]. ZRIGHT STATION? b0002404 
GETSPACE -£4]. XOX - GET SONE SPACE 0002500 
RECEIVE TRAN Ci, TRANERRINULLI. 66002509 
RECEIVE STXL1,;FORMATERR:31. 60002700 
INITIALIZE TEXT. S0002500 
RECEIVELL ,£TX21, CONTROL. $0002960 
STORECERDOFBUFFER!3]. SG002009 
RECEIVE TEXTCLi,ETX, ENDOFBUFFER?72. h0005100 
RECEIVE BCCLA,BCCERRI3). 60002200 
INITIATE TRANSHIT. 40003300 
TRANSMIT ACK. 60003400 
FINISH TRANSHIT. 40007500 
INITIATE RECEIVE. 7 42003400 
RECEIVE (1 SEC) EDT C2,FORMATERR:NULLI. &0003700 
IHCREMENT TRAN. 68003860 
TERMINATE NORHAL. 40003900 

END. | 60004000 
IF CHAR = EOT THEN 40004100 
BEGIN INITIALIZE RETRY. 60004200 
TERMINATE NOINPUT. 40004300 
END. 60004400 
RECEIVE (25 MILLI? (11. 60004500 
60 Te 3. | 60004609 
IF CHAR NEQ 4"FF" THEN GO TO 3. 60004700 
IF TOGLO] THEN TERMINATE NOINPUT. 600048006 
IF RETRY = 0 THEN TERMINATE ERROR. 40004900 
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471 RETRY = RETRY - 1, 60005000 
472 TERMINATE NOINPUT. 60005100 
473 &: STATION(TALLY) = 0. ZNO SPACE SO MAKE SURE THAT WE 60005200 
474 TOGLO] = TRUE. POLL HIN NEXT CYCLE AND DONT 60005300 
475 GO TO 3. ZDECREHENT HIS RETRY COUNT 40005400 
476 7: RECEIVE CHARCL,ETX:12. 80005500 
4776 10.7. 0005800 
470 x 60005700 
479% NOTICE THAT HE NEVER NAK A MESSASE AS WE DON’T WANT HIM TO 40005800 
400 x REXHIT HIS MESSAGE IMMEDIATELY - PERHAPS SONE CTNER STATIONS 60005900 
41 2 HAVE HORK TO DO Al HE DON’T KANT TO HANG THEH UP WHILE 40005000 
492 % WE SORT THIS TROVELEHAKER OUT. 60006100 
403 REQUEST SELECTIT: 70000000 
454 ERROR £1) = TINEQUT?4, 70000100 
485 STOPBIT#2, 76000200 
486 BUFOVFL:2, 70000309 
49? PARITY:2, 70090400 
498 —- LOSSOFCARRIERS4. 70000500 
49? i: TOGLO] = FALSE. 70000600 
4 INITIATE TRANSHIT. 70006700 
491s TRANSMIT EOT. 70000800 
492 TRANSHIT ADDRESS. 70000900 
493 TRANSIT SEL. 70004000 
L% TRANSMIT ERQ, 70001400 
495 FINISH TRANSIT. 70001200 
496 INITIATE RECEIVE. 70001300 
497 RECEIVE( SEC) £42. 70001400 
498 If CHAR = ACK THEH 70001500 
499 BEGIN 70001400 
509 INITIATE TRANSMIT. 70001700 
0! TRANSHIT SOH, 70001800 
02 IRITIALIZE BCC, 70001900 
"03 TRANSHIT ADERESS. 70002000 
54 TRANSHIT TRAN. 70002100 
505 TRANSHIT STX. 70002260 
FOG TRITIALIZE TEXT. 70002300 
"0? TRANSMIT TEXT. 70002460 
8 TRANSHIT ETX. 70002500 
S09 TRANSHIT SCC. 76002600 
510 FINISH TRANSHIT. 70002700 
Si INITIATE RECEIVE. 70002800 
542 ORECEIVECL SEC) C17. 70002900 
3 IF CHAR = ACK THEN - 79003000 
Sit DEGIN 70003100 
S15 INCREHENT TRAN. 70003200 
514 TERMINATE HORMAL. 70003300 
517 END. 70003400 
S18 IF CHAR = RAK THEN 70003500 
a BEGIN 70003600 
ay NARFLAG = TRUE. 70003700 
Sf IF RETRY = 0 THEN TERMINATE ERROR. 70003800 
m0 RETRY = RETRY-1. | 70003900 
ar GO TO i. ZIE ASK HIM TO RE XHIT HIS MESSAGE 70004000 
Sh | ZWE HAY GO ROUND THIS LOOP <RETRY? TINES70004100 
mS x | % 50 MAYBE THIS SHOULD BE REPLACED 70004200 


yA AWITH A TERMINATE NOINPUT TO ALLOY 
k ZUS TO TALK TO OTHER STATIONS WHILE 
4 AWE SORT TRIS GUY OUT. 7 
END. 
60 TO 2. 
END. 
IF CHAR = NAK THEN 
BEGIN 


NAKONSELECT = TRUE. | 
INITIALIZE RETRY. AWE WILL NEVER MARK HIN DOWN IF WE 


r4 AGET NAK ON SEL.THIS HIGHT NOT SE A 
a RGGOD PLAN. IF NOT THEN REMOVE THIS 
h AIRITIALIZE RETRY AND HE HILL GET 
h STHE STANDARD RETRY LOGIC. 
TGGCO] = TRUE. 
60 70 4. 
END. 
es RECEIVE (25 HILLI) £13. 
60 70 2. 
3: IF CHAR NEQ 4"FF" THER 60 TO 2. 
4: JF RETRY = 0 THEN TERHINATE ERROR. 


RETRY = RETRY - {. | 
TF TOGlO] THER TERMINATE ENABLEINPUT. ZHE NAK’ED US - FROSASLY 
y AHE IS IN XMIT SO YE WILL 60 
r4 RAND POLL RIM RIGHT NOY 
TERMINATE NOTHPUT. 
MODEM: TA7L: 
TRANSHITDELAY = 256 MILLI. THIS VALUE 19 THE TRANSHIT BELAY 
ROISEEELAY = 30 MILLI. 
TYPE = ASYNC. 
SPEED = 1200, 
TERMINAL TDBSOK4: 
| ADDRESS = 2 
SPEED = if 


PARLTY = VERTICALS EVEN, HORIZONTALZEVEN., 
CORTRGL = UPOLL. 

REQUEST = USELECTEDSRECE IVE; UPOLLED: TRANSHIT. 
RAXTNOUT = 1920. 

BLOCKED = FALSE. 

END = ETK, 

BACKSPACE = 8S. 

LIREBELETE = DEL. 

BRO = EHR, | 

TYPE = ASYRECHODEM). 

BYTE = 7, PARITY. 

SCREEN = TRUE. 

HORE = DEK. 

CLEAR = FF. 

CARRIAGE = ER. 

LINEFEED = LF. 

WIDTH = 32. 

WRAPAROUND = TRUE. 


70004306 
70008400 
70004500 
70004600 
70004706 
70004800 


70004900 


70005002 
70903100 
700052006 
70003306 
70003406 
70005500 


70003600 — 


70005700 
70605800 


POGOSION 


79006000 
70004100 
70004200 
70004300 
70006400 
109G6506 
70004400 
70008700 
70606800 
BOOGCIOO 
80000100 


— - BROR2 OD 


BOO00I00 
66900400 
801000090 


BO1CO100 © 
—E01O0209 


60100500 
60100400 
60100500 
80100400 
G0105700 
G9105806 
EGLOGSO$ 
80101006 
80101160 


€0101206 


60201300 
62101460 
89101560 


— 80101469 


80101700 
E0101800 
E0102900 
60102000 
80102100 
80162205 
BO102300 
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BBi TERMINAL TDB3O: 


Ge 


MYUSE 


ADDRESS = 2. 
SPEED = 1200, % SPEED CONTROLLED SOLELY BY ADC. 


_ TURRSROUND = 12 MILLI. & THIS VALUE IS THE TRANSHIT DELAY. 


81055000 
81000100 
81900200 
81060500 


TIMEGUT = 1 SEC. ZRQST YATTS THIS TINE BEFORE FURTHER ACTION. 62600400 


COPE = ASCLé?. 
PARITY = VERTICALSEVEN, HORIZONTAL EVEN. 
CONTROL = POLL. 

REQUEST = POLLITSRECEIVE, SELECTIT: TRANSMIT. 
HAXINCUT = 1920. 

BLOCKED = FALSE. 

END = ETY. 

BACKSPACE = BS. 

LINEDELETE = BEL. 

WRU = ENQ. 

TYPE = ASYHC(DIRECT). 

BYTE = 7, PARITY, 

SCREEN = TRUE. 

HOME = DCé. 

CLEAR = FF. 

CARRIAGE = CR. 

LINEFEED = LF. 

WIDTH = 80. | 

WRAPARGUND = TRUE. 


STATION STATION: 


CONTROL = 4°40". 

ENASLEITNPUT = TRUE. 

FREQUENCY = 0. 

LOGIN = FALSE. 

TRPUT, GUTPUT. 

RETRY = 10. 

WIDTH = 60. 

WRAPAROUND = TRUE. 

TERMINAL = TDB3O. | 

ADDRESS = "1A", % CHANGE TO YOUR STATION'S ADDRESS. 
SPEER = 1200, | 
TYPE = ASYRC(BIRECT). 


Nn 


STATION STATIONL: 


CONTROL = 4°50", 
ENABLEINPUT = TRUE. 
FREQUENCY = 0, 
LOGIN = FALSE. 
MYUSE = IHPUT,; OUTPUT. 
RETRY = 10. 

WIDTH = £9. 
BRAPARGUND = TRUE. 
TERHTHAL = TBO. 


ADDRESS = "18". 2 CHANGE TO YOUR STATION’S ADDRESS. 


SPEED = i200. 
TYPE = ASYUECDIRECT). 


STATION STATION2= 


CONTROL = 4°40", 
ENABLEINPUT = TRUE. 
FREQUENCY = 0. 
LOGIN = FALSE. 


81000506 
810004600 
81000700 
81000506 
Bi0G0900 
610610006 


81001100 


81001200 
1001300 
81962400 
81001500 
1001400 
81601700 
B1001200 
81001900 
81002000 
91002100 
1002200 
81002500 
82600000 
2000100 
2000200 
2000700 
82000400 
82000500 
2000400 
82009700 
B2000800 
5000700 
82001000 
B2001100 
22001209 
£3020000 
83000104 
63000200 
83060300. 
82000400 


83000300 


83000600 
83600700 
EIOG0BGO 
83000700 
83001000 
83001100 
G3001200 
84000006 
84000100 
B4C00200 
£4000700 
84000400 


&36 MYUSE = IHPUT,OUTPUT. B4AG00500 
&37 RETRY = 10. 840004600 
&38 WIDTH = 80. 84060700 
&3? WRAPARGUND = TRUE. G4000000 
PoAN) TERHINAL = TD830. 84000900 
Hi ADDRESS = "ic", ZX CHANGE TO YOUR STATION’ § ADDRESS. 84001000 
bh? SPEED = 1260. B4901100 
HS TYPE = ASYNC(DIRECT).. B4001200 
444 STATION STATION: B5000000 
&&S CONTROL = 4"40", 85900100 
eb ENABLEINPUT = TRUE. 85006200 
&? FREGUERTY = 0, 85000700 
é48 LOGIN = FALSE. B5000400 
ba? MYUSE = INPUT, OUTPUT. B5000500 
650 RETRY = 10, 85060400 
gi ‘WIDTH = 80. 85000700 
é52 WRAPAROUND = TRUE. 85000800 
&53 TERMINAL = TDB30. B5000900 
b54 ADDRESS = "1D". % CHANGE TO YOUR STATION’S ADDRESS. 65001000 
&55 SPEED = 1200. BSO01100 
&56 TYPE = ASYNC(DIRECT). BSC01200 
657 STATION STATION4: 84000000 
é58 CONTROL = 4"404, 86060100 
&59 ENABLEINPUT = TRUE. 846000200 
b60 FREQUERCY = 0, B4000300 
rast LOGIN = FALSE, 84000400 
£42 HYUSE = INPUT, DUTPUT. 54000500 
643 RETRY = 100. 84000600 
dt WIDTH = 32, 84000700 
&45 WRAPAROUND = TRUE. 84000800 
b&b TERNINAL = TDBSOX4, BE000500 
b47 ADDRESS = "1A", XCHANGE TO ADDRESS BY WHICH YOULL BE POLLED 84001000 
bh8 SPEED = 1200. 86001100 
bb? TYPE = ASYSCCHOREND. 8460012300 
&70 MODEM = TA7i3. 84001300 
&7i LINE LINEO: 87600000 . 
&72 ADDRESS = 5. % CHANGE TO YOUR PHYSICAL LINE ADDRESS. $7000100 
&73 MAXSTATIONS = 4. | 87000200 
é74 STATION = STATIONO, STATION, STATION2, STATIONS. 87000500 
&75 TYPE = DIRECT. | 87000400 
&7b LINE LINEL: | BEO00000 
&/7 ADDRESS = 6. XCHANGE TO YOUR PHYSICAL LINE ADDRESS 88000100 
&78 sos MAXSTATIONS = 1. 88000200 
&79 STATION = STATION. 85000300 
é80 TYPE = MODEU. £000400 
eB MODEM = TA713. BE0G0S00 
é62 DCP DCPESO: BFOCG00 0 
483 BUFFER = 120. 7 89000100 
6B4 EUFFERCOUNT = 125. TO SAVE SPACE SOME OVERLAP 890002809 
ES | % OF BUFFERS IS ALLOYED FOR. IT 18 BI0O0ZO0 
685 % EXPECTED THAT NOT ALL. STATIONS WILL HAVEB900G400 
487 Z ALL BUFFERS LOADED AT THE SAME TIME. 89000500 
488 | HEMORY = 49152, B9000400 
éa? LIMIT = 128. 89000700 
&?0 FILE FILEG: 90000000 
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FAHILY = STATIONO, STATIONL, STATIONE, 
FILE FILE?: | 
FAHILY = STATIONO. 
FILE FILEe: 
FAMILY = STATION. 
FILE FILES: 
FANICY = STATION. 


FILE FILE4: 


FAMILY = STATIONS. 
FILE FILES: 
FANILY = STATIONS. 


STATIONS, STATIONS. 


70000100 
90000200 
70060300 
90060406 
70000500 
90000406 
90000700 
90000800 
FO00070¢ 
70001000 
90001100 
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